нужно переделать задачу

program 12;
var
  F1, F2: text;
  i,j,max: integer;
  s, s1: string;
  a: array [1..10] of byte;
begin
  randomize;                   
  assign(F1,'lab02.txt');      
  assign(F2,'lab021.txt');
  rewrite(F1);                 
  for i:=1 to 10 do
    begin
      for j:=1 to 10 do        
        begin                  
          a[j]:=random(99);
          write(F1,a[j]:3);
        end;
      writeln(F1,s);
    end;
  close(F1);                   
  reset(F1);
  readln(F1,s);
  for i:=1 to 10 do
    read(F1,a[i]);
  readln(f1);
  max:=a[1];
  for i:=2 to 10 do
    if max<a[i] then
      begin
        max:=a[i];
        j:=i;
      end;
  close(F1);
  a[j]:=a[1];
  a[1]:=max;
  reset(F1);                   
  rewrite(F2);                 
  readln(F1,s);                
  writeln(F2,s);
  readln(F1,s);
  for i:=1 to 6 do
    begin
      readln(F1,s);
      writeln(F2,s);
    end;
  for i:=1 to 10 do
    write(F2,a[i]:3);
  writeln(F2);
  for i:=1 to 2 do
    begin
      readln(F1,s);
      writeln(F2,s);
    end;
  close(F1);                   
  close(F2);
  reset(F1);
  reset(F2);
  writeln('Первый файл');
  for i:=1 to 10 do
    begin
      readln(F1,s);
      writeln(s);
    end;
  writeln;
  writeln('Второй файл');
  for i:=1 to 10 do
    begin
      readln(F2,s);
      writeln(s);
    end;
  readln;
end.