процедуры, модули и функции

[Smirnov]

модуль который я написал
unit laba1;
interface
var
Q1,m,T1,T2,i,T:integer;
V:real;
procedure raschet (var Q:integer);
function Scor (temp:real): real;

implementation

procedure raschet (var Q:integer);
begin
T2:=350;
m:=25;
writeln ('vvedite T, K dlya rascheta Q');
readln (T1);
Q:=round((T2-T1)/m);
writeln('T,K V,m/s');
end;

function Scor (temp:real): real;
const
K=1.38e-23;
Mn=9.11e-13 * 0.26;
begin
Scor:=sqrt(3*K*temp/Mn);
end;
End.
программа которая не работает, не могу найти ошибку
uses Laba1;
var
Q1,m,T1,T2,i,T:integer;
V:real;

begin
raschet(Q1);
for i:=1 to (Q1+1) do
begin
T:=T1+(i-1)*m;
V:=Scor(T);
Writeln (T,' ',V : 11);
end;
readln;
end.

помогите найти ошибку

[denisbrain]

Сообщение от Smirnov

модуль который я написал
unit laba1;

помогите найти ошибку

очень даже работает - что прога делать та должна?!

[Smirnov]

программа считает температуру в цикле с фор, в процедуре должна быть вывод шапки и формула,а в функции другая формула....всё процедуру с функцией нужно забить в модуль...я всё сделал..а у меня не считает
Т которую надо ввести 150

[denisbrain]

Сообщение от Smirnov

программа считает температуру в цикле с фор, в процедуре должна быть вывод шапки и формула,а в функции другая формула....всё процедуру с функцией нужно забить в модуль...я всё сделал..а у меня не считает
Т которую надо ввести 150

var
Q1,m,T1,T2,i,T:integer;
V:real;

как вариант использование одинаковых переменных в программе и модуле