Запись и чтение из файла массива строк Опции

[-=АнЮтА=-]

    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.

что хочу сделать - записать в файл массив из десяти строк а пото его считать оттуда. подозреваю что неверно обращаюсь к тому,чо хочу считать. Обращаюсь к элементу массива. а в файле записан целый. Как это можно реализовать?

[Perfez]

f:file of array [1..coun] of string;

вместо этого вроде

f:file of string;

это должно быть...

[Артемий]

а зачем 2 раза открывать файл?Все равно в первом разе ты не производишь с ним никаких операций..или это не весь код?

[-=АнЮтА=-]

Неа, не совсем весь....что-то я подзапуталась о_О
Спасиб за помощь)