Помогите составить программы по информатике(извиняюсь, что задания на белорусском языке), паскаль abc

Огромное спасибо)

3:var s:string;    i:byte;beginwriteln('Введите текст');read(s); while (pos('при',s)<>0) do  begin    i:=pos('при',s);    delete(s,i,3);    insert('про',s,i);  end;write(s)end.1:var s:array[1..1000] of char;    x:string;    n,i,g,b:integer;    c,c1:char;beginwriteln('Введите слова, разделенные пробелом, окочание ввода Enter:');n:=0;repeatread(c);if c<>#13 then begin  n:=n+1;  s[n]:=c; end;until c=#13;writeln;for i:=1 to n doif s[i]=' 'then x:=x+' 'else x:=x+s[i];for g:=1 to length(x) dobeginif x[g] in ['a'..'z'] then x[g]:=Upcase(x[g]);end;writeln('Текст с большими латинскими буквами:');writeln(x);writeln('Латинские буквы в алфавитном порядке:');for c1:='A' to 'Z' dofor b:=1 to length(x) do if (x[b]=c1)then write(x[b]);readlnend.6:% сам посчитаешь. Программа считает сколько раз каждая буква встречается в строкеvar  s,s1: string;  i,k,b:integer;  a:array[1..32] of string;begin      a[1]:='а'; a[2]:='б'; a[3]:='в'; a[4]:='г'; a[5]:='д'; a[6]:='е'; a[7]:='ё'; a[8]:='ж';   a[9]:='з'; a[10]:='и'; a[11]:='й'; a[12]:='к'; a[13]:='л'; a[14]:='м'; a[15]:='н';a [16]:='о';   a[17]:='п'; a[18]:='р'; a[19]:='с'; a[20]:='т'; a[21]:='у'; a[22]:='ф'; a[23]:='х'; a[24]:='ч';   a[25]:='ш'; a[26]:='щ'; a[27]:='ъ'; a[28]:='ы'; a[29]:='ь'; a[30]:='э'; a[31]:='ю'; a[32]:='я';   writeln('Введите строку: ');   readln(s);   for i:=1 to 32 do   begin     b:=0;      for k:=1 to length(s) do          begin     if(s[k] = a[i]) then Inc(b);     end;     s1:=a[i] + '=' + b;     writeln(s1);   end;   end.