Program cn12; const nmax = 10;

type matrice = array[1..nmax,1..nmax] of real;
vect = array[1..nmax] of real;

var a: matrice;
s: vect;
n: integer;

procedure citeste(var x: matrice; var t: integer);
var f: text;
begin
assign (f, 'in.txt');
reset(f);
readln(f, t);
for i: integer :=1 to t do
begin
for j: integer :=1 to t do read(f,x[i,j]);
readln(f, x [i,t+1]);
end;
close(f);
end;

Выдает ошибку - Ошибка времени выполнения: Входная строка имела неверный формат ( для строки - readln(f, t);)

ka013382    3   21.01.2021 22:31    0