Преобразуйте матрицу путем удаления из нее строки, сумма элементов которой является максимальной из сумм элементов всех строк.

const
  nmax = 10;
  mmax = 10;
 
var
  Matrix : array [1..nmax, 1..mmax] of integer;
  i, j, n, m : integer;
  sum, maxsum, imax : integer;
 
begin
  Repeat
    Write('Введите N (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Введите M (не более ', mmax, ') = ');
    Readln(m);
  until m in [1..mmax];
  for i := 1 to n do
    for j := 1 to m do
      begin
        Write('Введите элемент [', i, ';', j, '] = ');
        Readln(Matrix[i, j]);
      end;
  Writeln('Исходная матрица: ');
  for i := 1 to n  do
    begin
      for j := 1 to m do
        Write(Matrix[i, j]:3, ' ');
    Writeln;
    end;
  
  maxsum := 0;
  for j := 1 to m do maxsum := maxsum + Matrix[1, j];
  imax := 1;
  for i := 2 to n do
    begin
      sum := 0;
      for j := 1 to m do sum := sum + Matrix[i, j];
      if sum > maxsum then 
        begin
          maxsum := sum;
          imax := i;
        end;
    end;
  for i := imax to n - 1 do
    for j := 1 to m do
      Matrix[i, j] := Matrix[i + 1, j];
  Writeln('Новая матрица: ');
  for i := 1 to n - 1 do
    begin
      for j := 1 to m do
        Write(Matrix[i, j]:3, ' ');
    Writeln;
    end;
end.

uses crt;
 
var
  Text : String;
  First : char;
 
begin
  Write('Введите текст: ');
  Readln(Text);
  Text := Text + ' ';
  First := Text[1];
  Writeln(copy(Text, 1, pos(' ', Text)));
  delete(Text, 1, pos(' ', Text));
  while Text <> '' do
    begin
      if (Text[1] = First) or (UpCase(Text[1]) = First) then Writeln(copy(Text, 1, pos(' ', Text) - 1));
      delete(Text, 1, pos(' ', Text));
    end;
end.