help meeeeeeeeeeeeeeeeeeeeeeeee

uses crt,math;
var s:string;
i:byte;
begin
clrscr;
readln(s);
if(s[1]=s[2]) and(s[2]=s[3]) then write(s[1],s[2])
else
for i:=1 to 3 do
 if ord(s[i])-48<>min(min(ord(s[1])-48,ord(s[2])-48),ord(s[3])-48) then
  write(s[i]);
readln
end.

*Pascal :

uses crt ;
    var ar : array[1..4] of byte ;
        n, i, tg, min : longint ;
        s : string ;
begin
  clrscr;
    readln(n);
    str(n,s);
    for i := 1 to 3 do 
         begin
        val(s[i],tg);
        ar[i] := tg;
         end ;
    min := ar[1];
    for i := 2 to 3 do 
        if min > ar[i] then min := ar[i];
    for i := 1 to 3 do 
        if ar[i]<> min then write(ar[i]);
    
end .