Дан двумерный массив целых чисел. Определить сколько раз встречается в каждой строке минимальный элемент, вывести сообщения. (Паскаль)

КОД в Turbo PascalUSES CRT;VAR A:array[1..5,1..5] of integer;              i,j,min,s:integer;BEGINCLRSCR;Randomize;  {заполняем массив случайными числами от 0 до 10}for i:=1 to 5 do       for j:=1 to 5 do         A[i,j]:=random(10);  {Выводим массив на экран}    for i:=1 to 5 do       begin          for j:=1 to 5 do               Write(A[i,j]:2, '   ');        Writeln;       end;min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}    {Ищем минимальный элемент в массиве}  for i:=1 to 5 do        for j:=1 to 5 do             if A[i,j]<min then min:=A[i,j];Writeln('Минимальный элемент в данном массиве = ',min);{Обнуляем счетчик} s:=0;{Считаем сколько минимальных элементов в каждой строке и выводим на экран}for i:=1 to 5 do      begin            for j:=1 to 5 do                 if A[i,j]=min then s:=s+1;            Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз');                  s:=0;   end;READLN;END.