Program vvod_stud;
uses crt;
const coun=2;
var m:array[1..coun] of string;
i:integer;
q:char;
f:file of array [1..coun] of string;
Begin
Clrscr;
assign(f,'stud.dat');
rewrite(f);
i:=1;
while not (i=10) or (q=#27) do begin
q:=readkey;
if q=#27 then begin writeln('Операция прервана');
readln;halt(1); end;
writeln ('Введите студента или нажмите Esc');
readln(m[i]);
i:=i+1;
end;
close(f);
readln;
assign(f,'stud.dat');
reset(f);
for i:=1 to coun do
readln (f,m[i]);
write(m[i],' ');
close(f);
readln;
end.
что хочу сделать - записать в файл массив из десяти строк а пото его считать оттуда. подозреваю что неверно обращаюсь к тому,чо хочу считать. Обращаюсь к элементу массива. а в файле записан целый. Как это можно реализовать?
