program retez;

var
   s:string;

procedure sread(var s:string);
var
   c:char;
   a:integer;

begin
a:=1;
s:='';
repeat
 c:=inkey;
 s[a]:=c; 
 write(c);
 a:=a+1;
until c=chr(13);
s[0]:=chr(a-2);
writeln;
end;

begin
write('Vloz slovo: ');
sread(s);
writeln(s);
end.
