Перевод кода в паскаль abc с делфи - PascalABC.NET

program Project;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=2501;
type
  tarray=array[1..n] of integer;
var
  i: integer;
  A: tarray;
  T:text;
 
procedure Merge(var A: tarray; first, last: integer);
var middle, start, final , j: integer;
mas: tarray;
begin
middle:=(first+last) div 2;
start:=first;
final:=middle+1;
for j:=first to last do
if (start<=middle) and ((final>last) or (A[start]