Все ли английские буквы, входящие в текст, упорядочены по возрастанию.

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var c : char; a,b:byte;
begin
  read(c);
  a:=0;
  b:=0;
while c <> '.' do
begin
 if (c='a')or(c='o')or(c='e')or(c='i')or(c='u') then inc(a)
 else inc(b);read(c)
end;
if a>b then writeln('the answer is TRUE') else writeln('the answer is FALSE');
readln;readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const n=10;
Type MyMas=array[1..n] of integer;
var i,h:integer;
x:MyMas;
Procedure Input(c:MyMas);
var i:integer;
begin
for i:=1 to n do readln(x[i]);
end;
Procedure Print(c:MyMas);
var i:integer;
begin
  for i:=1 to n do write(x[i]:3);
    readln;
end;
Function Podschet(c:MyMas):boolean;
var t:boolean;
begin
for i:=1 to n do begin
if c[i]=0 then t:=true else t:=false;
end;
writeln(t);
readln
end;
begin
Randomize;
Input(x);
Print(x);
Podschet(x);
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const max=100;
Type MyMas=array[1..max] of integer;
Procedure Input(var c:MyMas;var x:byte);
var i:integer;
begin
repeat
write('Razmer massiva 1-100 = ');
readln(x);
until x in [1..max];
writeln('Vvedite ',x,' elementov massiva:');
for i:=1 to x do readln(c[i]);
end;
Procedure Print(var c:MyMas;x:byte);
var i:integer;
begin
  for i:=1 to x do write(c[i]:3);
  readln;
end;
Function Podschet(c:MyMas;x:byte):boolean;
var i:byte;
begin
Podschet:=false;
for i:=1 to x do
if c[i]=0 then
  begin
   Podschet:=true;
   break;
  end;
end;
 
var n:byte;
    x:MyMas;
begin
Input(x,n);
Print(x,n);
if Podschet(x,n) then write('Nol est!')
else write('Nolej net!');
readln
end.

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var c : char; a,b:byte;
begin
  read(c);
  a:=0;
  b:=0;
while c <> '.' do
begin
 if (c='a')or(c='o')or(c='e')or(c='i')or(c='u') then inc(a)
 else inc(b);read(c)
end;
if a>b then writeln('the answer is TRUE') else writeln('the answer is FALSE');
readln;readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

uses crt;
var c1,c2:char;
    s,p:byte;
    f:boolean;
begin
clrscr;
writeln('Введите текст с английскими буквами, окончание ввода точка:');
s:=0;p:=0;
f:=true;
read(c1);
if c1 in ['A'..'Z'] then p:=p+1        /// проверка на заглавные со счетчиком.
else if c1 in ['a'..'z'] then s:=s+1;  /// проверка на строчные со счетчиком.
repeat
read(c2);
if (c2 in ['A'..'Z','a'..'z']) and(c1 in ['A'..'Z','a'..'z'])  /// проверка на упорядоченность
and(c2<c1) then f:=false;
if c1 in ['A'..'Z'] then p:=p+1
else if c1 in ['a'..'z'] then s:=s+1;
c1:=c2;
until c2='.';
writeln('Больше строчных букв чем прописных?');
writeln(s>p);
writeln('Все английские буквы упорядочены по возрастанию?');
write(f);
readln;
readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var c:char;
s,p:byte;
t:boolean;
begin
writeln('|--Vvedite text s anglijskimi bukvami, okonchivajshihsj TOCHKOI--|');
readln(c);
s:=0;
p:=0;
while c<>'.' do begin
if c in ['A'..'Z'] then inc(p) else
if c in ['a'..'z'] then inc(s);
end;
writeln(p);
writeln(s);
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var c:char;
s,p:byte;
begin
writeln('Vvedite text, okonchanie vvoda "." :');
readln(c);
s:=0;p:=0;
while c<>'.' do
begin
if (c>='A') and (c<='Z') then inc(p)
else if ('с'>='a') and ('c'<='z') then inc(s);
readln(c);
end;
writeln(p);
writeln(s);
if s>p then write('Stochnix>propisnix') else
if p>s then write('Propisnix>strochnix') else
if p=s then write('Propisnix=strochnix');
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

uses crt;
var c1,c2:char;
    f:boolean;
begin
clrscr;
writeln('Введите текст с английскими буквами, окончание ввода точка:');
f:=true;
read(c1);
while c2<>'.' do
 begin
  read(c2);
  if (c2 in ['A'..'Z','a'..'z']) and(c1 in ['A'..'Z','a'..'z'])
  and(c2<c1) then f:=false;
  c1:=c2;
 end;
if f then write('Все английские буквы упорядочены по возрастанию')
else write('Не все английские буквы упорядочены по возрастанию');
readln;
readln
end.