Несколько программ

uses crt;var a:array[1..30]of string[20];i,b,j,d,k:byte;
begin write('Kol FIO=');readln(b);
for i:=1 to b do begin
write('FIO #',i,' =');readln(a[i]);d:=0;
for j:=1 to length(a[i]) do
if ((upcase(a[i][j])>='A')and(upcase(a[i][j])<='Z'))then
inc(d);if (d=8)or(d=9) then inc(k);end;writeln('Kol of IO=',k);readkey;end.

uses crt;var a:array[1..30]of string[20];i,b,j,d,max:byte;
s:string[20];
begin write('Kol City=');readln(b);
for i:=1 to b do begin
write('City #',i,' =');readln(a[i]);d:=0;
for j:=1 to length(a[i]) do
if ((upcase(a[i][j])>='A')and(upcase(a[i][j])<='Z'))then
inc(d);if d>=max then begin max:=d;s:=a[i];end;end;
writeln('City=',s);readkey;end.

uses crt;var s:string;b,i,j,k:byte;p:boolean;
begin clrscr;write('Slovo=');readln(s);
for i:=1 to length(s) do begin p:=true;
if (upcase(s[i])>='A')and(upcase(s[i])<='Z') then
for j:=1 to length(s) do
if (s[i]=s[j])and(i<>j) then begin p:=false;break;end;
if p then inc(k);end;writeln('Kol=',k);readkey;end.

uses crt;
const
l=['A'..'Z','a'..'z'];
r=['А'..'Я','а'..'я'];
var c:char;
begin clrscr;
repeat read(c);
if c in l then writeln('in L!');
if c in r then writeln('in R!');
until upcase(c)='Z';end.

uses crt;var a:array[1..50]of integer;b,i,j:byte;c,d:word;
begin clrscr;j:=0;write('Size of array=');readln(b);
writeln('Your array:');for i:=1 to b do begin
read(a[i]);if (j=0)and(a[i]<0)then j:=i;end;
if j=0 then begin writeln('Error!');readkey;halt;end;
write('Your number=');readln(c);
for i:=b downto j+1 do a[i+1]:=a[i];a[j+1]:=c;writeln('Changed Array:');
for i:=1 to b+1 do write(a[i],' ');readkey;end.