Паскаль нужна помощь!

[Ivan_123]

Написать код программы(смотреть закреп).

[macomics]

USES SysUtils;

VAR
  N: LongInt;
  VEC: array [1 .. 6] of Single;
  KOL: array [1 .. 6] of LongInt;
  NEWVEC: array [1 .. 6] of Double;
  SUM: Double;
  IndexMin, IndexMax: Integer;

procedure ReadFileData(aFileName: String);
var
  F: TextFile;
  i: Integer;
begin
  if FileExists(aFileName) then begin
    Assign(F, aFileName);
    Reset(F);
    ReadLn(F, N);
    for i := 1 to 6 do
      Read(F, VEC[i]);
    ReadLn(F);
    for i := 1 to 6 do
      Read(F, KOL[i]);
    Close(F);
  end;
end;

procedure MakeNewVEC();
var
  i, j: Integer;
begin
  IndexMin := 1;
  IndexMax := 1;
  SUM := 0;
  for i := 1 to 6 do begin
    NEWVEC[i] := 0;
    for j := 1 to KOL[i] do
      NEWVEC[i] := NEWVEC[i] + VEC[j];
    if i - N > 0 then SUM := SUM + abs(NEWVEC[i]);
    if NEWVEC[i] < NEWVEC[IndexMin] then IndexMin := i;
    if NEWVEC[i] > NEWVEC[IndexMax] then IndexMax := i;
  end;
end;

procedure PrintData();
var
  i: Integer;
begin
  WriteLn('Сформированный массив:'); for i := 1 to 5 do Write(NEWVEC[i]:2:3, ', '); WriteLn(NEWVEC[6]:2:3);
  WriteLn('Сумма = ', SUM:2:3);
  WriteLn('Максимальный элемент = ', NEWVEC[IndexMax]:2:3, ' его индекс ', IndexMax);
  WriteLn('Минимальный элемент = ', NEWVEC[IndexMin]:2:3, ' его индекс ', IndexMin);
end;

BEGIN
  ReadFileData('INPUT.TXT');
  MakeNewVEC();
  PrintData();
END.

Вот так она работает.

[Ivan_123]

А как ее запустить в Паскаль ABC?