Люди помогите я уже 2 месяц не могу создать эту прогу

решение на Turbo Pascal 7.0 (позволяет сравнивать также буквы одного алфавита, либо русские, либо английские по порядку алфавита, прописные и заглавные отличаются) число не ограничено количеством цифр

uses crt;
var a, i, j: integer;
min, max: char;
s: string;
begin
clrscr;
readln (s);
a:=length(s);
min:=s[a];
max:=s[a];
for i:=a downto 1 do
begin
if s[i] < min then min:=s[i];
if s[i] > max then max:=s[i];
end;
for i:=1 to a do
if (s[i] = min) or (s[i] = max) then
begin
write (' левее стоит цифра = ', s[i]);
if ord(min)-ord(s[i]) = 0 then write(' она минимальная')
else write(' - она максимальная');
break;
end;
repeat until keypressed;
end.

Лови, болезный:

program Project1;

uses
Math;

type
TPositions=array[0..9] of integer;

var
Positions: TPositions;
n, k, d, minp, maxp: integer;

begin
Readln(n);
FillChar(Positions, SizeOf(Positions), #0);
k:=1;
while n>0 do
begin
d:=n mod 10;
n:=n div 10;
Positions[d]:=k;
inc(k);
end;

k:=0;
while Positions[k]=0 do
inc(k);
minp:=Positions[k];

k:=9;
while Positions[k]=0 do
dec(k);
maxp:=Positions[k];

case Sign(minp-maxp) of
-1: Writeln('Maximum digit is located left of minimum');
0: Writeln('All digits are equal');
1: Writeln('Maximum digit is located right of minimum');
end;

Readln;
end.

2 месяца не можешь решить стандартную задачку? Программирование - не твоё, бросай его

Раскидайте ваше число в массив по цифрам и задача мгновенно превратится в тривиальную...

Вот решение: