Pascal problema

Tai va, priėjau iki to, kad visur stringu ties šiuom erroru. Skaldžiau kodą ir gavos, kad kažkur čia erroras "blogas skaičiaus formatas".

program Bevardė4;
var d, f : text;
   n, i : integer;
   m : array[1..5] of integer;
begin
 assign(d, 'Duomenys.txt');
 assign(f, 'Rezultatai.txt');
 reset(d);
 rewrite(f);
 Readln(d, n);
 for i:=1 to n do
 Read(d, m[i]);
 for i:=1 to n do
 Writeln(f, m[i]);
 close(d);
 close(f);
end.

Pats nesuprantu kur slypi klaida. Negaliu kompiliuot rimtesnių programų dėl šito erroro :/

Parodyk duomenų failą

Ten problema išsiaiškinau, bet dabar nesuprantu kodėl visgi kitos programos nuskaitymas neveikia.

begin
 assign(d, 'Duomenys.txt');
 assign(f, 'Rezultatai.txt');
 reset(d);
 rewrite(f);
 Read(d, n, k);
 Readln;
 if (n >= 2) and (n <= 50) and (k >=1) and (k <= 10) then begin
   for i:=1 to n do
   begin
    Read(d, m[i].pav);
    for j:=1 to k do
    Read(d, m[i].sk[j]);
    Readln;
   end;
 Writeln(f, m[i].pav);
 end;
 close(d);
 close(f);

Duomenys:

2 3

Hermis 6 1 2

Hera 6 2 2

Išmseta cmd langą ir nks nevyksta. Kai išjungi, duoda pasirinkt ar išsaugot rez.txt failą, bet pokyčių jame nulis.

bump