срочно решить до сегоднешнего 10 вечера срочно
1. С клавиатуры вводят строку и слово. Составьте программу, которая:
а) определяет позицию заданного слова;
б) удаляет заданное слово;
в) вставляет в строку заданное слово.

2. Составьте программу, которая:
а) к строке «край озер» добавляет слова «лесов и рек»;
б) в строке «Я учу сь в школе» заменяет слова «в школе» на «в 10-м классе».

3. Составьте программу, которая переставляет на первое место:
а) в строке «моя родина Беларусь» слово «Беларусь»;
б) в строке «люблю цябе, мой родны кут» слова «мой родны кут».

4. Составьте программу, которая меняет местами первое и последнее слово:
а) в строке «Минск столица Беларуси»;
б) в строке «Беларусь ты моя синеокая».

5. С клавиатуры вводят строку. Составьте программу, которая:
а) заменяет все пробелы в строке символом подчеркивания;
б) подсчитывает количество букв в строке (исключая пробелы и цифры);
в) подсчитывает количество прописных букв.
это паскаль абс!!!!не из интернета +что б работоло!!!

 

Program one_a;uses crt;var s1,s2:string;    p,a:integer;begin     readln(s1);     readln(s2);     p:=pos(s2,s1);     if p=0 then writeln('no')     else writeln('pos:',p);end.Program one_b;uses crt;var s1,s2:string;    p,a:integer;begin     readln(s1);     readln(s2);     p:=pos(s2,s1);     if p=0 then writeln('no')     else     begin     a:=length(s2);     delete(s1,p,a);     writeln(s1);     end;end.Program one_c;uses crt;var s1,s2:string;    p:integer;begin     readln(s1);     readln(s2);     s2:=' '+s2+' ';     readln(p);     insert(s2,s1,p);     writeln(s1);end.Program two_a;uses crt;var s1,s2,s3:string;begin     s1:='край озер ';     writeln(s1);     s2:='лесов и рек';     writeln(s2);     insert(s2,s1,length(s1)+1);     writeln(s1);end.Program two_b;uses crt;var s1,s2,s3:string;    p,a:integer;begin     s1:='Я учусь в школе';     writeln(s1);     s2:='в школе';     s3:='в 10-м классе';     p:=pos(s2,s1);     a:=length(s2);     delete(s1,p,a);     insert(s3,s1,p+1);     writeln(s1);end.Program three_a;uses crt;var s1,s2:string;    p,a:integer;begin     s1:='моя родина Беларусь';     writeln(s1);     s2:='Беларусь';     p:=pos(s2,s1);     a:=length(s2);     delete(s1,p,a);     s1:=s2+' '+s1;     writeln(s1);end.Program three_b;uses crt;var s1,s2:string;    p,a:integer;begin     s1:='люблю цябе, мой родны кут';     writeln(s1);     s2:='мой родны кут';     p:=pos(s2,s1);     a:=length(s2);     delete(s1,p,a);     delete(s1,length(s2)-2,2);     s1:=s2+','+s1;     writeln(s1);end.Program four_a;uses crt;var s1,s2,s3:string;    p,k,i,l,m:integer;begin     s1:='Минск столица Беларуси';     writeln(s1);     k:=0;     for i:=1 to length(s1) do         if copy(s1,i,1)=' ' then         begin              inc(k);              l:=i;         end;     p:=pos(' ',s1);     s2:=copy(s1,1,p-1);     s3:=copy(s1,l+1,length(s1)-l+1);     k:=length(s2);     m:=length(s3);     delete(s1,1,k);     delete(s1,l-p+2,m);     s1:=s3+s1+s2;     writeln(s1);end.Program four_b;uses crt;var s1,s2,s3:string;    p,k,i,l,m:integer;begin     s1:='Беларусь ты моя синеокая';     writeln(s1);     k:=0;     for i:=1 to length(s1) do         if copy(s1,i,1)=' ' then         begin              inc(k);              l:=i;         end;     p:=pos(' ',s1);     s2:=copy(s1,1,p-1);     s3:=copy(s1,l+1,length(s1)-l+1);     k:=length(s2);     m:=length(s3);     delete(s1,1,k);     delete(s1,l-p+2,m);     s1:=s3+s1+s2;     writeln(s1);end.Program five_a;uses crt;var s1:string;    x:integer;begin     readln(s1);     for x:=1 to length(s1) do         if copy(s1,x,1)=' ' then         begin              delete(s1,x,1);              insert('_',s1,x);         end;     writeln(s1);end.Program five_b;uses crt;var s1:string;    s2:char;    x,y:integer;begin     readln(s1);     y:=0;     for x:=1 to length(s1) do         begin              s2:=s1[x];              if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y);         end;     writeln(y);end.Program five_c;uses crt;var s1:string;    s2:char;    x,y:integer;begin     readln(s1);     y:=0;     for x:=1 to length(s1) do         begin              s2:=s1[x];              if (ord(s2)<=90) and (ord(s2)>=65) then inc(y);              if (ord(s2)>=192) and (ord(s2)<=223) then inc(y);         end;     writeln(y);end.