задача на подпрограмму в Pascal - вычислить импульс и кинетическую энергию точек

[Mad_Cat]

Встречено 'End', а ожидалось begin

Я бы все процедуры повызывал! Где тело программы то основной?
а эту исправил под новые реалии

 procedure vuvid_res;

[mishammm]

я вас немного помучаю но плиз помогите в моем случае процедуру вызвать так ?
begin
vvid_mas()
vuvid_massivy()
impuls()
kinetichna()
я не понимаю какие переменные в процедуре вызвать просто ((
спасибо вам заранее и извините за ваше время пожалуйста

[Mad_Cat]

const n = 10;
type TArr = array[1..n] of real;
var M, U: Tarr;

procedure InputArr(var A: Tarr; r: integer; S: string);
var i: integer;
begin
  for i := 1 to r do
  begin
    write(s, '[', i, ']=');
    readln(a[i]);
  end;
end;

procedure OutputArr(var A: Tarr; r: integer; S: string);
var i: integer;
begin
  Writeln(S);
  for i := 1 to r do
    write(a[i]: 6: 3);
  writeln;
end;

function Impulse(var A, B: Tarr; r: integer): real;
var i: integer;
  buf: real;
begin
  buf := 0;
  for i := 1 to r do
    buf := buf + a[i] * b[i];
  Impulse := buf;
end;

function Energy(var A, B: Tarr; r: integer): real;
var i: integer;
  buf: real;
begin
  buf := 0;
  for i := 1 to r do
    buf := buf + a[i] * b[i] * b[i];
  Energy := buf / 2;
end;
begin
  inputarr(M, n, 'Macca');
  inputarr(U, n, 'CkopocTb');
  writeln('+++++++++++++++++++++++++++++++++++++++');
  outputarr(M, n, 'Macca');
  outputarr(U, n, 'CkopocTb');
  writeln('+++++++++++++++++++++++++++++++++++++++');
  writeln('impulse:', Impulse(M, U, n): 6: 3);
  writeln('energy:', Energy(M, U, n): 6: 3);
  writeln('+++++++++++++++++++++++++++++++++++++++');
  readln;
end.