Найти все двузначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) для Паскаля

Var A,i,k:byte;BeginWrite('Простые двузначные числа:');For A:= 10 to 99 do    Begin    k:=0;    For i:= 2 to A div 2 do        if A mod i = 0 then k:=k+1;    if k = 0 then Write(' ',A)    EndEnd.Результат работы программы:Простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97