почему не могу ввести строку s2?

[гоша37]

uses crt;
 const g: set of char=['e','y','u','i','o','a','E','Y','U','I','O','A'];
 const l: set of char=['!',';',':',',','.','?'];
 var s1,s2,s3: string;
 i,k: integer;
 c:char;
 begin
 write('còðîêà si: '); readln(s1);
 for i:=1 to length(s1) do
 if s1[i] in g then inc(k);
 writeln('Êîëè÷åñòâî ãëàñíûõ â ñòðîêå s1= ',k);
 readkey;
 write('ñòðîêà s2: ');
 repeat
 c:=readkey;
 if not(c in l) then
 until c in l;
 writeln;
 for i:=1 to length(s2)do
 if s2[i] in l then
 end.

нужно ввести строку s1 с помощью readln, подсчитать количество гласных букв. затем ввести строку s2 посимвольно с помощью readkey. конец ввода строки s2 - знак препинания

[Stilet]

repeat
  c:=readkey;
  if not(c in l) then s2:=s2+c;
 until c in l;