Программа вводит произвольную последовательность символов до тех пор, пока это цифры. Программа определяет, сколько раз встретилась цифра ‘2’, печатает трижды все цифры 7 с новой строки, а остальные цифры на экран не выводит. Выводит на экран количество цифр ‘2’ — Pascal(Паскаль)

uses crt;
var c:char;
    k,i:byte;
begin
clrscr;
writeln('Вводите цифры, окончание ввода не цифра.');
k:=0;
repeat
c:=readkey;
if c='2' then k:=k+1;
if c='7' then
 begin
  for i:=1 to 3 do
   write('7');
   writeln;
  end;
until not(c in ['0'..'9']);
readln;
write('Количество цифр 2=',k);
readln
end.