Помогите решить задачку на 2х мерный массив (если не трудно)

[jorjinho10]

ребята , помогите решить такую задачку:
Создать матрицу , вывести на экран , найти строку с наименьшей и наибольшей суммой элементов , вывести 2 эти строки и посчитать сумму их элементов (по отдельности).
Примечание : Матрица должна на экране выглядеть как матрица,(не в виде столбца(строки) с номером строки и столбца)

Заранее Спасибо!!!

[Warnes]

Паскаля нет,так что проверь.
Блин...меня бы препод по программированию за такой код на кол посадилбы...

var razm,i,j,max_pref,min_pref:integer;
    Matrix:array [1..100,1..100] of real;
    Mas_Sum:array [1..100] of real;
    min,max:real;
begin
  Writeln('Razmernost=');
  Readln(razm);
  For i:=1 to razm do
    For j:=1 to razm do
      begin
        Read(Matrix[i,j]);
        Mas_Sum[i]:=Mas_Sum[i]+Matrix[i,j];
      end;

  For i:=1 to razm do
    begin
      Writeln;
      For j:=1 to razm do
          Write(' ',Matrix[i,j]:0:2,' ');
    end;

  min:=Mas_Sum[1];
  min:=Mas_Sum[2];
  Writeln;
  Writeln;
  For i:=1 to razm do
    begin
      if min>=Mas_Sum[i] then
        begin
          min:=Mas_Sum[i];
          min_pref:=i;
        end;
      if max<=Mas_Sum[i] then
        begin
          max:=Mas_Sum[i];
          max_pref:=i;
        end;
    end;
  For i:=1 to razm do
    begin
      Write(' ',Matrix[min_pref,i]:0:2,' ');
    end;
  Writeln;
  For i:=1 to razm do
    begin
      Write(' ',Matrix[max_pref,i]:0:2,' ');
    end;
  Writeln;
  Writeln;
  max:=Mas_Sum[max_pref]+Mas_Sum[min_pref];
  Writeln('Summa=',max:0:2);
  Readln;
  Readln;
end.