Задания на строки

…
glas: = `aeoyuAEOYU`
 
…
 
Flag: = trye;
For i = 1 to length (s) – 1 do
If ((s[i] <= `z`) and (s[i] >= `A`) or (s[i]<=`z`) and (s[i]>=`a`) and ((s[i+1]<=`z`) and (s[i+1]>=`A`) or (s[i+1]<=`z`) and (s[i+1]>=`a`))
     Then
           If (pas(s[i], glas)<>0) and (pos(s[i+1],glas)=0) or (pos [i+1],glas)<> 0)
           And (pas(s[i],glas)<>0)
                  Then
                  Else Flag:= false
    Else Flag: = False;
If Flag
    Then writeln (`чередуются`)

program P;
var max, max_id, min, min_id: integer;
begin
  max := 0;
  min := 100;
  for i := 1 to 10 do
  begin
    if pos('Z', A[i]) > 0 then
      if length(A[i]) > max then
      begin
        max := length(A[i]);
        max_id := i;
      end;
    if pos('X', A[i]) > 0 then
      if length(A[i]) < min then
      begin
        min := length(A[i]);
        min_id := i;
      end;
  end;
  writeln('max stroka s "Z"', A[max_id]);
  writeln('min stroka s "X"', A[min_id]);
end.

uses crt;
const
z='z';
x='x';
var
s:array[1..10]of string;
i:integer;
min,max:string;
 
begin
for i:=1 to 10 do
begin
read(s[i]);
end;
min:=s[1];
for i:=2 to 10 do
begin
if length(s[i])<length(min) then
min:=s[i];
end;
max:=s[1];
for i:=2 to 10 do
begin
if length(s[i])>length(max) then
max:=s[i];
end;
if pos(x,min)=0 then
writeln('Минимальная по длине строка ', min);
if pos(z,max)=0 then
writeln('Максимальная по длине строка ', max);
end.