Составить программу, определяющую, в каком из данных двух чисел больше цифр.

uses crt;
var
   a,b,cifry:string;
   la,lb,i,code:integer;
begin
cifry:='1234567890';
//------------------------------
repeat
   code:=0;
   la:=0;
   write ('Ââåäèòå A: ');
   readln(a);
   for i:=1 to length(a) do
   if pos(a[i],cifry)=0 then
   inc(code) else
   inc(la);
   if code<>0 then
   writeln('Íåêîððåêòíûé ââîä!');
until code=0;
//------------------------------
repeat
   code:=0;
   lb:=0;
   write ('Ââåäèòå B: ');
   readln(b);
   for i:=1 to length(b) do
   if pos(b[i],cifry)=0 then
   inc(code) else
   inc(lb);
   if code<>0 then
   writeln('Íåêîððåêòíûé ââîä!');
until code=0;
//------------------------------
if la>lb then write(' ÷èñëå À áîëüøå öèôð');
if lb>la then write(' ÷èñëå  áîëüøå öèôð');
if lb=la then write('êîë-âî öèôð îäèíàêîãî');
end.

uses crt;
const
   n=10;
var
   mas:array[1..n] of integer;
   a,b,i,index:integer;
   w:boolean;
begin
write('Ââåäèòå À: ');
readln(a);
write('Ââåäèòå B: ');
readln(b);
w:=false;
writeln('Ìàññèâ:');
for i:=1 to n do
    begin
    mas[i]:=random(100);
    write(mas[i],' ');
    if (mas[i] mod a=0) and (mas[i] mod b<>0) then
       begin
       w:=true;
       index:=i;
       end;
    end;
writeln;
if w=false then
write('w=false') else
write('w=true. index=',index);
end.

var
  Str: string;
  Chr: char;
 
procedure DeleteChar(var Str: string; Chr: char);
begin
  while pos(Chr, Str) <> 0 do
    delete(Str, pos(Chr, Str), 1);
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  write('Удаляемый символ: ');
  readln(Chr);
  DeleteChar(Str, Chr);
  writeln('Строка: ');
  write(Str);
end.

uses crt;
const
   n=5;
var
   mas:array[1..n,1..n] of integer;
   buff:array[1..n] of integer;
   min,indI,indJ,i,j,k:integer;
begin
min:=maxint;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        mas[i,j]:=random(50)-20;
        write(mas[i,j]:4);
        if (mas[i,j]<min) and (mas[i,j]>0) then
           begin
           min:=mas[i,j];
           indI:=i;
           indJ:=j;
           end;
        end;
    writeln;
    end;
writeln('Min = ',min,';  Stroka = ',indI,';  Stolbec = ',IndJ,';');
//------------------------------------------------
write('buff(stroka)= ');
i:=indI;
k:=1;
for j:=1 to n do
    begin
    buff[k]:=mas[i,j];
    write(buff[k],' ');
    inc(k);
    end;
//------------------------------------------------
k:=1;
for j:=1 to n do
    begin
    mas[indI,j]:=mas[k,indJ];
    inc(k);
    end;
//------------------------------------------------
k:=1;
for i:=1 to n do
    begin
    mas[i,indJ]:=buff[k];
    inc(k);
    end;
//------------------------------------------------
writeln;
writeln('Ïîëó÷åííàÿ ìàòðèöà:');
for i:=1 to n do
    begin
    for j:=1 to n do
    write(mas[i,j]:4);
    writeln;
    end;
end.

uses crt;
var
   f1:text;
   f2:text;
   i:integer;
   s:string;
begin
assign(f1,'f1.txt');
rewrite(f1);
writeln('ÂÂåäèòå òåêñò äëÿ çàïèñè â 1é ôàéë:');
readln(s);
write(f1,s);
close(f1);
//-------------------------------------------
assign(f2,'f2.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do
      begin
      read(f1,s);
      for i:=length(s) downto 1 do
      write(f2,s[i]);
      end;
close(f1);
close(f2);
//-------------------------------------------
write('Finish!');
end.