Помогите с паскалем, девятый класс

 Program P1; 

uses crt; 

var i, n: byte; 

    s: string; 

begin 

clrscr; 

n:=0; 

writeln ('Введите с клавиатуры (наберите) строку символов (любую), после чего нажмите клавишу Enter.'); 

write ('Введите строку: '); 

readln (s); 

for i:=1 to length (s) do if ((s[i]='а') and (s[i+1]='ю')) or ((s[i]='А') and (s[i+1]='Ю')) then n:=n+1; 

writeln ('Сочетание букв "АЮ" в введенной строке встречается: ', n, ' раз(а).'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 Program P2; 

uses crt; 

const n=10; 

type mas=array [1..n] of byte; 

var a: mas; 

    i: byte; 

begin 

clrscr; 

for i:=1 to n do a[i]:=random (6); 

write ('Был сгенерирован массив:'); 

for i:=1 to n do write (' ', a[i]); 

writeln (' '); 

for i:=1 to n do if (a[i]=0) and (a[i+1]0) then begin 

    writeln ('Найден элемент: A[', i, ']=0'); 

    break; 

    end else begin 

    writeln ('В массиве нет таких элементов, которые были бы =0, но за ними были бы ненулевые значения.'); 

    break; 

    end; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 

 Program P2; 

uses crt; 

label l; 

const n=10; 

type mas=array [1..n] of byte; 

var a: mas; 

    i: byte; 

begin 

clrscr; 

for i:=1 to n do a[i]:=random (6); 

write ('Был сгенерирован массив:'); 

for i:=1 to n do write (' ', a[i]); 

writeln (' '); 

for i:=1 to n do if (a[i]=0) and (a[i+1]0) then begin 

    writeln ('Найден элемент: A[', i, ']=0'); 

    goto l; 

    end else begin 

    writeln ('В массиве нет таких элементов, которые были бы =0, но за ними были бы ненулевые значения.'); 

    goto l; 

    end; 

l:; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.