Перевод кода из Delphi - Turbo Pascal

Формулировка задачи:

Помогите перевести код из делфи в паскаль, написал прогу в делфи а в паскале не могу что то)) Заранее спасибо)

var
  Form1: TForm1;
   i,j: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
Randomize;
  for i:=0 to 4 do
  for j:=0 to 4 do
    strngrd1.Cells[i,j] := IntToStr(RandomRange(-40,40));
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 
j:=1;
for i:=0 to 4 do
if StrToInt(strngrd1.Cells[i,j])<0 then
strngrd1.Cells[i,j]:=strngrd1.Cells[i,j]
else
strngrd1.Cells[i,j]:= IntToStr(100+StrToInt(strngrd1.Cells[i,j]));
 
end;
 
end.

Решение задачи: «Перевод кода из Delphi»

textual
                            Листинг программы 
                        

                            program  Kursa4;
{$R-}
uses crt;
const m=3;
      n=4; 
var i,j: integer;
    matr:array [1..m,1..n] of integer;
begin
    randomize;
    for i:=1 to m do
    for j:=1 to n do
    if j mod 2=0 then
    matr[i,j]:=random(50)*(-1) else
    matr[i,j]:=random(50);
 
    Writeln ('Исходная матрица:');
    for i:=1 to m do
    begin
      for j:=1 to n do
      write(matr[i,j]:8);
      writeln('');
    end;
 
    for j:=1 to n do
    if matr[2,j]>0 then matr[2,j]:=matr[2,j]+100;
   
    Writeln ('Преобразованная матрица:');
    for i:=1 to m do
    begin
      for j:=1 to n do
      write(matr[i,j]:8);
      writeln('');
    end;         
end.
                        