[ugicedeath]

Всем привет! Проблема ерундовая! Почему-то не записывает в файл несколько значений.
Все нужные вещи обозначены вот так:

f,g: TextFile;
fdir,gdir,tendstr: string;

Все остальные указанные переменные обозначены как real и integer и массивы собственно.

Суть проблемы: Пишет что в строчках где закрываются файлы: too many actual parameters

Вот код:

Код:

fdir:='C:\Users\Руслан\Desktop\Компьютерная физика\СДАВАТЬ\Уравнение теплопроводности ДЕЛФИ\res.txt';
AssignFile(f,fdir);
Rewrite(f);
WriteLn(f,'Толщина пластин L =',L:6:4);
WriteLn(f,'Число узлов по координате N =',N);
WriteLn(f,'Коэффициент теплопроводности материала lamda =',lamda:6:4);
WriteLn(f,'Плотность материала ro =',ro:6:4);
WriteLn(f,'Теплоемкость материала c =',c:6:4);
WriteLn(f,'Начальная температура T0 =',T0:6:4);
WriteLn(f,'Температура на границе х=0, T1 =',T1:6:4);
WriteLn(f,'Температура на границе х=L, Tr =',Tr:6:4);
WriteLn(f,'Результат получен с шагом по координате h =',h:6:4);
WriteLn(f,'Результат получен с шагом по времени tau =',tau:6:4);
WriteLn(f,'Температурное поле в момент времени t =',tend:6:4);
close(f);

gdir:='C:\Users\Руслан\Desktop\Компьютерная физика\СДАВАТЬ\Уравнение теплопроводности ДЕЛФИ\tempr.txt';

AssignFile(g,gdir);
Rewrite(g);
for i:=1 to N do
 writeln(g,' ',h*(i-1):6:3,' ',T[i]:8:5);
close(g);