прикладная математика

Program var12;
Uses intrfc,crt;
const h= 52;
type mas = array [1..h] of real;
xkov = array [1..h,1..h] of real;
mass = array [1..h] of integer;

var n,k:integer; var m:mass;
var summ,xsr:mas;var wspom:massiv;
var x:xkov;
kov,c: real;

procedure vvod( var n,k:integer; var m:mass);
Var i: integer;
Begin
Writeln ('vvedite chislo dadchikov (kanalov oprosa)' );
readln(k);
writeln ('vvedite nomera dadsikov M1...Mk');
For i:=1 to k do
readln (m[i]);
writeln ('vvedite N, chislo siklov oprosa dadsikov' );
readln(N);
end;

procedure rashet( var k: integer; var m:mass; var xrs,summ:mas; var wspom:massiv; var c,kov: real; var x: xkov);
Var a,b: integer;
Begin

for b:=1 to n do begin
For a:=1 to k do
begin
summ[a]:=0;
OPROS (m[a],x[a,b],wspom);
writeln ('chikl n = ,',n, 'kanal m =',m[a],' izmerenie x=',x[a,b]:5:2);
summ[a]:=x[a,b]+summ[a];
xsr[a]:=summ[a]/n;
writeln ('xsr[',a,'] = ',xsr[a]);

kov:=(x[a,b]-xsr[a])*(x[a,b]-xsr[a])+kov;

end;

end;
c:=kov/n;
writeln ('c = ',c);
readln;

end;

begin
vvod(N,k,m);
rashet(k,m,xsr,c,wspom,kov);
end.

подчеркивает переменные c wspom kov в пред последней строчке.

еще есть приложение intrfc. могу выложить, но не вижу смысла. тип massiv описан как раз в подпрограмме intrfc.
заранее спасибо

Добавлено (01.06.10, 19:07)
---------------------------------------------
все спасибо разобрался