паскаль, вывести на экран матрицу из файла. (матрица может быть любого размера)

program dsd;
const n=100; m=100;
var
a1,a2,a3: array[1..m,1..n] of real;
i,j: integer;
f:text;
s:char;
begin
assign(f,'wer.txt');
reset(f);
for i:=1 to m do begin
for j:=1 to n do begin
read(f,a1[i,j],s);
write(a1[i,j],' ');
end;
writeln;
readln(f);
end;
closefile(f);
end.

при запуске выдает "Ошибка времени исполнения. Входная строка имела неверный формат", помогите разобраться в чем дело.

ошибка в строке read(f,a1[i,j],s);