noip2007初赛-求字符串的逆序

noip2007C_4_1（求字符串的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1 终止程序。

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[i];
		s[i]:=s[j];
		s[j]:=t;
		inc(i);
		dec(j);
	end;
end;

begin
	writeln('continue? -1 for end');
	readln(kz);
	while kz<>-1 do
	begin
		readln(line);
		reverse(line);
		writeln(line);
		writeln('continue? -1 for end');
		readln(kz);
	end;
end.