Прога выдает ошибку. Помогите плиzzz.
program stroki;
uses crt;
type zap=record
str:string[100];
end;
var mas:array[1..100] of zap;
fl: file of zap;
k,i:integer;
begin
clrscr;
writeln('VVEDITE KOLICHESTVO STROK');
readln(k);
for i:=1 to k do begin
writeln('VVEDITE ',i,'-u STROKU');
readln(mas[i].str);
end;
assign(fl, 'a:\txt\unsort.txt');
rewrite(fl);
write(fl, zap);
close(fl);
readln;
end.
! | Пользуемся тегами ! |
Сообщение отредактировано: klem4 -