Матрица в Паскале

[Fiera9999]

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

[ROMA2PVT]

uses
  crt;
var
  mas:array [1..100,1..100] of integer;
  i,j,c,k,sum,imin:integer;
begin
randomize;
  write('Количество строк: ');
  readln(c);
  write('Количество столбцов:');
  readln(k);
      writeln('массив A: ');
  for i:=1 to c do
    begin
    for j:=1 to k do
    begin
      mas[i,j]:=random(10)-5;
      write(mas[i,j]:3,' ');
    end;
    writeln;
    end;
    writeln;
    Sum:=0;
  for i:=1 to c do
  begin
   imin:=1;
  for j:=1 to k do
   if mas[i,j]<mas[i,imin] then
    imin:=j;
    Sum:=Sum+mas[i,imin];
    writeln('Минимальный элемент ',i,'-й строки:=',mas[i,imin]);
  end;
     writeln('Сумма MIN элементов строк:=',Sum);
     end.

[Fiera9999]

спасибочки большое))))