Паскаль. Задача на текстовый файл

[MAnytta]

Буду безумно признательна за помощь, до файлов проблем с прогой не возникало, а сейчас даже не знаю за что и хвататься

Задача. В первой строке текстового файла содержится размер матрицы (не больше 10x10), в остальных строках хранится сама матрица из вещественных чисел (по строчно). Создать 2 новых файла:
1-ый файл из положительных чисел
2-ой из отрицательных чисел

[alex_fcsm]

var f,f1:text;
    s:string;
    a:array[1..10,1..10] of real;
    m,n,i,j,code:integer;

begin
assign(f,'c:\1.txt');
reset(f);
readln(f,s);
val(copy(s,1,pos('*',s)),m,code);
val(copy(s,pos('*',s)+1,length(s)-pos('*',s)+1),n,code);
for i:=1 to m do
 for j:=1 to n do
  read(f,a[i,j]);
close(f);
assign(f,'c:\2.txt');
rewrite(f);
assign(f1,'c:\3.txt');
rewrite(f1);
for i:=1 to m do
 for j:=1 to n do
  if a[i,j]>0 then writeln(f1,a[i,j])
    else if a[i,j]<0 then writeln(f,a[i,j]);
close(f);
close(f1);
writeln('Success!!!');
end.