Программа : необходимо ввести k строк ( к задается с клавы), затем создать txt с этими строками в нем.
Прога выдает ошибку. Помогите пли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.
! | Пользуемся тегами ! |
Ты не можешь записывать весь массив сразу в файл... Надо по одной записи:
assign(fl, 'a:\txt\unsort.txt');
rewrite(fl);
for i:=1 to k do begin
write(fl, mas[i]);
end;
close(fl);