НУЖНА С ПАСКАЛЬ Ребят, подскажите, кто знает: написала 2 проги в паскаль(самостоятельно), но где-то есть недоработка и они работают неправильно. Компилятор никакой ошибки не выводит, поэтому не могу разобраться в чём дело...
Прикрепляю задания, свои коды и скрины работы прог:

1)Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов. Текст нужно придумать самостоятельно.

Мой код:

program udalenye;
var s, s1: string;
i: byte;
begin
writeln('введите текст, состоящий из 6 слов');
readln(s);
writeln('исходная строка: ', s);
s1:='';
for i:=1 to length(s) do
if (s[i]<>'о') then s1:=s1+s[i];
writeln('строка после удаления всех букв "о": ', s1);
end.

2)Определить, сколько раз в тексте встречается буква «и».

В качестве входных данных введите текст, состоящий из Ваших фамилии, имени и отчества.

Мой код:

program bukva;
var s: string;
i, k: integer;
len: byte;
begin
k:=0;
writeln('введите имя, фамилию и отчество');
readln(s);
len:=length(s);
for i:=1 to len do
begin
if s[i]='и' then k:=k+1;
end;
writeln('буква "и" встречается в тексте ', k, ' раза(раз)');
end.

Бұлтты технологиялар жаңалықтарын қарап отырып, оқырмандар әр түрлі анықтамалар мен белгілеулерге тап болады, олардың мәні бірден анықталмауы мүмкін. Бұлтты қызметтерге арналған қысқартулардың бірдей түрін айтпағанда, кейде IT мамандары да шатасады.

Бұлт. Жалпы шарттар

Бұлтты есептеу - қарапайым тілмен айтқанда, бұл сценарий, бұл пайдаланушыға есептеуіш ресурстарына, мысалы, серверлерге, желілерге, сақтау жүйелеріне, қосымшалар мен қызметтерге желі арқылы, көбінесе Интернет арқылы қол жеткізуге мүмкіндік береді.

Жалпыға ортақ бұлт - бұл көптеген қолданушылар үшін бұлтты есептеулерді қолдану мүмкіндігін қамтамасыз ететін инфрақұрылым. Әдетте коммерциялық ұйымға тиесілі.

Жеке (жеке) бұлт - аты айтып тұрғандай, бір ұйымға тиесілі инфрақұрылым болып табылады және бұлттық есептеулерді тек өз мақсаттары үшін пайдалануға мүмкіндік береді.

Гибридті бұлт - жеке және жалпы бұлттың ерекшеліктерін біріктіреді. Мұндай тәсілмен инфрақұрылымның бір бөлігі клиентке тиесілі, ал бір бөлігі жалға беріледі. Екі құрылым арасындағы байланыс деректерді беру технологияларын қолдану арқылы қамтамасыз етіледі.

Объяснение:

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))