Паскаль... Need Help

[Chih]

Вобщем на завьра нужно прогу сделать... А чё-то в условии туплю.
условие следующее:
сформировать файл F целого типа. Из файла получить матрицу А(N,M).
Начиная с 1-й и по (N-1) строки формировать, читая компоненты файла с начала, N-ю строку заполнить компонентами, читая файл с конца. Матрицу распечатать. Если матрицы сформировать нельзя, то сделать сообщение.Значения N,M вводятся с клавиатуры.

program chih8;
uses crt;
  var
  F: file of integer;
  A: array [1..100,1..100] of integer;
  B,i,j,N,M,k:integer;
  begin
  clrscr;
  writeln ('N='); read(N);
  writeln ('M='); read (M);
  assign (F,'z_3.txt'); rewrite (f);
  rewrite (f);
  K:=M*N;
  for i:=1 to K do
    begin
    write ('B:='); readln (B); write (f,B);
    end;
    close (f);
    reset (f);
    for i:=1 to N-1 do
    for i:=1 to M do
      begin
      read (f,B);
      A[i,j]:=B;
      end;
    for i:=filesize(f) downto M do
    begin
    seek (f,i);
    read (f,B);
    A[i,j]:=B;
    end;
    close (F);
    for i:=1 to N do
    for j:=1 to M do
    writeln ('M=');
    write (M);
    Writeln ('N=');
    Write (N);
    end.

Это то, что я надумал. Бред получился

[DimonTools]

файл с чем

[Chih]

Его вроде создать надо... Из матрицы

[Chih]

Или просто из значени N M...

[Chih]

program chih8;
uses crt;
  var
  F: file of integer;
  A: array [1..100,1..100] of integer;
  B,i,j,N,M,k:integer;
  begin
    clrscr;
    writeln ('Ввод (для окончания ввода наберите 777)');
    write ('1-ая компонента =');
    Readln (b);
    Assign (f,'f.dat');
    Rewrite (f);
    while b<>777 do
    begin
      write (f,b);
      write ('следующая компонента =');
      Readln (b);
    end;
    close(f);

    reset (f);
    K:= filesize(f);
    write ('N='); readln (N);
    write ('M='); readln (M);
    If K>=M*N then
    begin
      for i:=1 to N-1 do
      for j:=1 to M do
      begin
        read (f,b);
        A[i,j]:=b;
      end;
      seek(f,filesize(f)-1);
      i:=N;
      For j:=1 to M do
      begin
        read (f,b);
        A[i,j]:=b;
        seek(f,filepos(f)-2);
      end;
      for i:=1 to N do
      begin
         for j:=1 to M do
         write(' ',A[i,j]);
         writeln;
      end;
    end
    else
    writeln('Формирование матрицы невозможно');
    writeln ('Вывод file ');
    seek (f,0);
    while not eof(f) do
    begin
      read(f,b);
      write(' ',b);
    end;
  close (f);
end.

Вот решение. Мож кому понадобится