TP / 7 / 7-73

uses crt;
var a:array [1..10,1..10] of string;
l,kg,kz,ks,i,j,j1,k:integer;
b:boolean;
begin
clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
l:=random(5)+2;
for k:=1 to l do
a[i,j]:=a[i,j]+chr(random(26)+97);
end;

textcolor(15);
for i:=1 to 10 do
begin
writeln;
for j:=1 to 10 do
write (a[i,j]:8);
end;
readkey;

kg:=0;kz:=0;
for i:=1 to 10 do
for j:=1 to 10 do begin
for k:=1 to length(a[i,j]) do begin
if a[i,j][k] in ['a','o','e','y','u','i'] then kg:=kg+1;
if a[i,j][k] in ['s','j','l','b','z'] then kz:=kz+1;
end;
if kg<kz then begin textcolor(2);write(a[i,j]:8);end else
begin textcolor(15);write(a[i,j]:8);end;
kz:=0;kg:=0;
end;
readkey;

writeln;
b:=false;
ks:=0;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
for k:=1 to length(a[i,j]) do
if a[i,j][k] in ['a','o','e','y','u','i'] then b:=true;
if b=true then inc(ks);
end;
if ks>=4 then for j1:=1 to 10 do begin textcolor(2);write(a[i,j1]:8);end else
for j1:=1 to 10 do begin textcolor(15);write(a[i,j1]:8);end;
b:=false;
ks:=0;
end;
readkey;
end.