（求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一

Program j401;
type
   str1=string[100];
var
    line:str1;
    kz:integer;
procedure reverse(var s:str1);
var
    i,j:integer; t:char;
begin
    i:=1; j:=length(s);
    while (i<j) do
    begin
       t:=s; s:=s[j]; s[j]:=t;
        1    ;
        2    ;
    end;
end;
begin
    writeln('continue? -1 for end.');
    readln(kz);
    while (   3   )do
    begin
        readln(line);
            4    ;
        writeln(line);
        writeln('continue? -1 for end.');
        readln(kz);
    end;
end.