Работа со строкой + repeat...until

[Hom9IchOK]

Задание: Используя repeat...until , напиcать прогу, которая вводит любые символы, комментирует только цифры. Закрытие проги-нажатие буквы z.
Проблема: После первого ввода не дает больше не переходит на ввод и уходит в бесконечный цикл. В чем проблема?

Заранее спасибо.

Код:

uses crt;
const
    n=9;
    s1: array [1..n] of string = ('1','2','3','4','5','6','7','8','9');
var s,sv:string;
    i:integer;
label 1;
begin
 i:=0;
 repeat
1:  clrscr;
    gotoxy(5,3);
    write('Vvedite simvol:');
    read(s);
    if (s='')or(s=' ') then
    begin
     writeln('Povtorite vvod');
     readkey;
     goto 1;
    end;
    for i:=1 to n do
      begin
       if s=s1[i] then
        begin
          s:='{'+s+'}';
        end;
      end;
    gotoxy(5,4);
    write(s);
    i:=i+1;
    readkey;
 writeln(i);
 until s='z';
 readkey;
end.

[bullvinkle]

uses crt;
const
n=9;
s1: array [0..n] of string = ('0','1','2','3','4','5','6','7','8','9 ');
var s,sv:string;
i: integer;
begin
s := "q";
repeat
Writeln ('Enter the symbol');
Readln(s);
for i = 0 to n do begin
if s = s1[i] then s :=  '{'+s+'}';
end;
Writeln('New string 's,);
until (s='z');
end.

Вроде должно быть так. Писал прямо тут, т.к. нет у меня паскаля на компе, так что могут быть ошибки.

[Stilet]

А ты пошагово пройдись, и посмотри на каком операторе она глючит.

[fikret123]

Сообщение от Hom9IchOK

Задание: Используя repeat...until , напиcать прогу, которая вводит любые символы, комментирует только цифры. Закрытие проги-нажатие буквы z.
Проблема: После первого ввода не дает больше не переходит на ввод и уходит в бесконечный цикл. В чем проблема?

Заранее спасибо.

Код:

uses crt;
const
    n=10;
    s1: array [1..n] of char = ('0','1','2','3','4','5','6','7','8','9');
var s,sv:char;
    i,j:integer;
begin
j:=0;
 repeat
    clrscr;
    gotoxy(5,3);
    write('Vvedite simvol:');
    read(s);
    if (s='')or(s=' ') then
    begin
     writeln('Povtorite vvod');
     readkey;
     continue
    end;
    for i:=1 to n do
       if s=s1[i] then
        begin
          s:='{'+s+'}';
          gotoxy(5,4);
          write(s); 
          s:=''
        end;
    j:=j+1;
    readkey;
 writeln(j);
 until s='z';
 readkey;
end.

вот так вот примерно

[fikret123]

ошибся, s: string оставь

[Hom9IchOK]

ВСЕМ СПАСИБО!
Итоговый вариант:

uses crt;
const
n=9;
s1: array [1..n] of string = ('1','2','3','4','5','6','7','8','9 ');
var s,sv:string;
i:integer;
label 1;
begin
i:=0;
repeat
clrscr;
1: gotoxy(5,3);
write('Vvedite simvol:');
readln(s);
if (s='')or(s=' ') then
begin
gotoxy(5,2);
writeln('Povtorite vvod');
readkey;
goto 1;
end;
for i:=1 to n do
begin
if s=s1[i] then
begin
s:='{'+s+'}';
end;
end;
gotoxy(5,4);
writeln('Vu vveli simvol: ',s);
i:=i+1;
readkey;
writeln('Kolichestvo simvolov',i);
until s='z';
readkey;
end.