задания к сессии

program dvoetochie;
uses crt;
var
 i:integer;
 s:string;
begin
 clrscr;
 writeln('Vvedite stroky: ');
 read(s);
 {Находим все пробелы в строке и удаляем их}
 while pos(' ',s)>0 do delete(s,pos(' ',s),1);
 {находим позицию ":" в строке}
 i:=Pos(':',s);
 write('do dvoetochiy ',i-1,' simvola(ov));
 readln;
end.

program tochkazap;
uses crt;
var
 i,k:integer;
 s:string;
begin
 clrscr;
 writeln('Vvedite stroky: ');
 read(s);
 {Находим все пробелы в строке и удаляем их}
 while pos(' ',s)>0 do delete(s,pos(' ',s),1);
 {находим позицию ";" в строке}
 i:=Pos(';',s);
 {если ";" в строке присутствует, то вычисляем количество сиволов после ";" }
 if i>0 then k:=length(s)-i;
 write('do tochki-zapatoy ',i-1,' simvola(ov), a posle ',k);
 readln;
end.

program searchfrag;
uses crt;
var
 i,count,d:integer;
 s,ss:string;
begin
 clrscr;
 writeln('Vvedite stroky: ');
 read(s); {запоминаем текст, в котором будет производиться поиск}
 readln; 
 writeln('Chto iskat`: ');
 read(ss); {запоминаем фрагмент}
 s:=s+' '; {для правильной работы цикла в конец текста добавляется пробел}
 count:=0; {обнуление количества фрагментов}
 while (Pos(ss,s)>0) and (Pos(' ',s)>0) do {пока фрагмент в тексте присутствует и пробелы не закончились выполнять следующее}
 begin
  count:=count+1;
  d:=length(s);{вычисление длины строки}
  {отсечение части строки в которой уже найден фрагмент}
  s:=copy(s,Pos(' ',s)+1,d);{копирование подстроки в строке s начиная с Pos(' ',s)+1 длинной d}
 end;
 write(ss,' vstrechaetsa ',count,' raza'); 
 readln;
end.

k:=0;
while pos(pstr,str)>0 do
 begin
  k:=k+1;
  delete(str,pos(pstr,str),length(pstr));
 end;

a:='ба';
for i:=1 to length(s)-length(a)+1 do
if copy(s,i,length(a))=a then inc(k);

if length(s1)>length(s2) then
k:=length(s2)
else k:=length(s1);
for i:=1 to k do
begin
ch:=s1[i];
s1[i]:=s2[i];
s2[i]:=ch;
end;

const n=5;
      m=6;
var a:array[1..n,1..m]of integer;
    i,j,k,x,max,imax,jmax:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
repeat
write('k=');
readln(k);
until (k>=1)and(k<=n)and(k<=m);  {проверка ввода}
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j];  {максимум}
     imax:=i;     {номер строки}
     jmax:=j;      {номер столбца}
   end;
writeln('Max=',max,'  imax=',imax,'  jmax=',jmax);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[k,j];
    a[k,j]:=a[imax,j]; {меняем местами элементы строки К со строкой, где макс}
    a[imax,j]:=x;
  end;
{перестановка столбцов}
for i:=1 to n do
  begin
    x:=a[i,k];
    a[i,k]:=a[i,jmax];{меняем местами элементы столбца К со столбцом, где макс}
    a[i,jmax]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.