Заполнить двумерный массив случайным числом от 10 до 100 посчитать сумму элементов отдельно в каждой строке и определить номер строки в котором это сумма максимальна

Пер   массив: ряд n, m из цел;   сч1, сч2, сум, макс, номер: цел; указ   номер : = 0; макс : = 0;   от сч1 : = 0 до m-1 вып     увеличить(макс, массив[0, сч1])   кон;   от сч1 : = 1 до n-1 вып     сум : = 0;     от сч2 : = 0 до m-1 вып       увеличить(сум, массив[сч1, сч2])     кон;     если сум > макс то макс : = сум; номер : = сч1 кон   кон кон .

можно назвать - собака 

или 

агент @ мail.ru 

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.