Разработать программу для работы с двумерными массивами

procedure TForm1.Button1Click(Sender: TObject);
var i,j,Imax,Jmax,Imin,Jmin,x,y,k:integer;
    sa:Real;
    a:array of array of integer;
    f:TextFile;
    s:string;
begin
i:=0; j:=0; Imax:=0; Jmax:=0; Imin:=0; Jmin:=0; x:=0; y:=0; sa:=0;
 
AssignFile(f, '123.txt');
{$I-}//îòêëþ÷àåì îøèáêè ââîäà/âûâîäà
Reset(f);//îòêðûâàåì ôàéë äëÿ ÷òåíèÿ
{$I+}//âêëþ÷àåì îøèáêè ââîäà/âûâîäà
If IOResult<>0 then//åñëè IOResult íå ðàâíî 0, òî ïðîèçîøëà îøèáêà îòêðûòèÿ ôàéëà(íàïðèìåð îòñóòñòâèå ôàéëà è òä. è òï.)
Application.MessageBox('Îøèáêà ÷òåíèÿ ôàéëà!', 'Îøèáêà', MB_ICONERROR)
else
  begin
  Read(f, x);//ñ÷èòûâàåì êîëëè÷åñòâî ñòðîê
  Read(f, y);//ñ÷èòûâàåì êîëëè÷åñòâî ñòîëáöîâ
  SetLength(a, x, y);//çàäàåì ðàçìåðíîñòü íàøåãî ìàññèâà
 
  For i:=0 to x-1 do
   begin
    For j:=0 to y-1 do
      begin
      Read(f, k);//ñ÷èòûâàåì î÷åðåäíîå çíà÷åíèå èç ôàéëà
      s:=s+IntToStr(k)+' ';
      a[i,j]:=k;//çàíîñèì åãî â ìàññèâ
      sa:=sa+k;//íàõîäèì ñóììó âñåõ ýëåìåíòîâ äëÿ ñðåäíåãî àðèôìåòè÷åñêîãî
      If k>=a[Imax,Jmax] then begin Imax:=i; Jmax:=j; end;//íàõîäèì èíäåêñû ìàêñèìàëüíîãî ýë.
      If k<=a[Imin,Jmin] then begin Imin:=i; Jmin:=j; end;//íàõîäèì èíäåêñû ìèíèìèëüíîãî ýë.
      end;
   s:=s+#10#13;
   end;
 
  sa:=sa/(x*y);//äåëèì ñóììó ýë. íà èõ êîëëè÷åñòâî(íàõîäèì ñðåäíåå àðèôìåòè÷åñêîå)
  s:=s+'Íîìåð ìàêñèìàëüíîãî ýë. ['+IntToStr(Imax+1)+','+IntToStr(Jmax+1)+']'+#10#13;
  s:=s+'Íîìåð ìèíèìàëüíîãî ýë. ['+IntToStr(Imin+1)+','+IntToStr(Jmin+1)+']'+#10#13;
  s:=s+'Ñðåäíåå àðèôìåòè÷åñêîå = '+FloatToStr(sa);
 
  ShowMessage(s);
  end;
end;