Аллфавит ипредложения

var i:integer;
 
begin
for i:=128 to 239 do
if not((i>175) and (i<224)) then
Write(chr(i),' ');
readln;
end.

var i,k:integer;
s:string;
 
begin
k:=0;
Writeln('Vvedite predlojenie');
readln(s);
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
Writeln('Kol-vo bukv a ravno ',k);
readln;
end.