SUB raschet1(d(2),xx,yy,t(2),xx1,yy1,id(2),xx2,yy2)
var masofint: array [1..5] of integer; masofstring: array [1..5] of string; masofmasogint: array [1..5,1..5] of integer;
не понял твою конструкцию на бейсике..на паскале массивы объявлять так:Код: [Выделить]var masofint: array [1..5] of integer; masofstring: array [1..5] of string; masofmasogint: array [1..5,1..5] of integer;это есть в любом учебнике по паскалю.то что тебе надо не понял, так что подробней.
procedure raschet1(d:array [0..2] of integer; xx, yy :integer; t:array [0..2] of integer; xx1, yy1 :integer; id:array [0..2] of integer; xx2 ,yy2 :integer; );
procedure raschet1(var d:array [0..2] of integer; ..... );