Matematické Fórum

Zdravím, chtěl bych poprosit o radu. Vytvořil jsem program na tisk matice. Čtení ze souboru, bohužel po zadání čísel v souboru mi program v Deplhi ukazuje nesmysly a vůbec to nepřečte matici, tak jak jsem jí zadával, ale čísla jsou zmateně přeházená.
Kde je chyba? Děkuji

program Matice;
{$APPTYPE CONSOLE}

var
  a:array[1..10,1..10]of real;
  m,n,i,j:integer;
  f:text;
begin
  writeln('Program pro tisk matic');
  writeln('******************');
  writeln;
  assign(f,'C:\mat.txt');
  reset(f);
  read(f,m,n);
  for i:=1 to m do
    for j:=1 to n do
      read(f,a[i,j]);
  writeln('Zadana matice A:');
  writeln;
  for i:=1 to m do
  begin
     for j:=1 to n do
      write(a[i,j]:3:0);
    writeln;
  end;
  writeln;
  readln;
end.