Pascal

[Alekseevna20]

Здравствуйте! Помогите переписать код программы Pascal (в программе Delphi) на код программы с подпрограммами.

uses
  Windows,
  SysUtils;

Var
 A,C:Array[1..30]of integer;
 B:Array[1..6,1..5]of integer;
 Max,S1,S2:integer;
 i,j,k,n:byte;
 f:Text;
Begin
Assign(f,'RezL2_2.dat');
ReWrite(f);
Randomize;
WriteLn(f,'Вектор A'); WriteLn('Vektor A');
For i:=1 to 30 do
  begin
    A[i]:=random(20)-11;
    write(a[i]:3);write(f,a[i]:3);
    if i mod 10=0 then begin writeln(''); writeln(f,''); End;
  end;
S1:=0;
For i:=1 to 15 do  S1:=S1+A[i];
S2:=0;
For i:= 16 to 30 do  S2:=S2+A[i];
If S1>S2
then
begin
writeln('S1>S2');writeln(f,'S1>S2');
k:=1;
for i:=1 to 6 do
  for j:=1 to 5 do
      begin
        b[i,j]:=A[k];
        k:=k+1;
      end;
    WriteLn(f,'Матрица B'); WriteLn('Matrica B');
      for i:=1 to 6 do
        begin
          for j:=1 to 5 do
            begin
             Write(b[i,j]:3,' '); Write(f,b[i,j]:3,' ');
            End;
          Writeln(''); Writeln(f,'');
        end;

    Writeln ('Vector C');Writeln (f,'Векотор C');
      For i:=1 to 6 do
        begin
          max:=B[i,1];
           For j:= 1 to 5 do
             If B[i,j]>max Then max:=B[i,j];
             C[i]:=max;
        End;
      For i:=1 to 6 do
       begin
        Write(C[i]:3,' '); Write(f,C[i]:3,' ');
       End;
Writeln(''); Writeln(f,'');
End

 Else
  Begin
    writeln('S1<S2');writeln(f,'S1<S2');
k:=1;
for i:=1 to 5 do
  for j:=1 to 6 do
      begin
        b[i,j]:=A[k];
        k:=k+1;
      end;
WriteLn(f,'Матрица B'); WriteLn('Matrica B');
for i:=1 to 5 do
  begin
    for j:=1 to 6 do
       begin
         Write(b[i,j]:3,' '); Write(f,b[i,j]:3,' ');
       End;
Writeln(''); Writeln(f,'');
end;

 begin
Writeln ('Vector C');Writeln (f,'Векотор C');
 for j:=1 to 6 do
  begin
    max:=B[1,j];
      For i:=1 to 5 do
      If B[i,j]>Max Then Max:=B[i,j];
    C[j]:=max;
   End;
For j:=1 to 6 do
   begin
     Write(C[j]:3,' '); Write(f,C[j]:3,' ');
   End;
Writeln(''); Writeln(f,'');
 End;

end;
Close(f);
Readln (k);

End.