Программа : необходимо ввести 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);