Subor-zaklad

program fckd;

var t:text;

a,k,x:string;

i,s:integer;

begin

assign(t,'C:\FPC\2.4.2\bin\text.txt');

rewrite(t);

writeln('pre dalsieho klikni n, pre koniec zadaj k');

while x<>'k'do begin

i:=i+1;

writeln('zadaj meno');

readln(a);

write(t,a);

writeln('zadaj vahu');

readln(s);

write(t,s);

writeln('pre dalsieho klikni n, pre koniec zadaj k');

readln(x);

end;

close(t);

readln;

end.