Задачи на разные темы

var s: string;
    i: integer;
    k: integer;
    tp: string;
begin
  writeln('Введите строку: ');
  readln(s);
  for i:=1 to length(s) do
    if s[i]<>'t' then tp:=tp+s[i] else begin
        inc(k);
        if k mod 2<>0 then tp:=tp+s[i];
    end;
  writeln('Преобразованная строка: ');
  writeln(tp);
end.

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
  Tarr=array[1..sqr(nmax)] of integer;
var
  a:Tmatrix;
  b:Tarr;
  i,j,m,n,k,imax,buf:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  k:=0;
  {Formiruem matritsu i zapisyvaem ee v odnomerniy massiv b}
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(50);
        write(a[i,j]:4);
        inc(k);
        b[k]:=a[i,j];
        if j=m then
          writeln;
      end;
  writeln;
  {Ishem max v massive b}
  imax:=1;
  for i:=2 to k do
    if b[i]>b[imax] then
      imax:=i;
  writeln('Max:',b[imax]);
  {Sortiruem massiv b, nachinaya s el. sled. za maximalnym}
  for i:=imax+1 to k-1 do
    for j:=i+1 to k do
      if b[i]>b[j] then
        begin
          buf:=b[i];
          b[i]:=b[j];
          b[j]:=buf;
        end;
  writeln('Poluchennaya matritsa:');
  {Formiruem matritsy iz massiva b}
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      begin
        inc(k);
        a[i,j]:=b[k];
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
end.