Госс-споди, да что Вы там накрутили-то? На кой пёс Вам коды?! Уж если Вы считываете вводимое число, как строку, так и выводите первый и последний символы, да и всё тут! Например, так:
Код:
Program Lab51;
procedure Poisk(an:string);
var
i:integer;
Frst,Lst:Char;
begin
i:=Length(an);
Frst:=an[1];
Lst:=an[i];
Writeln('Pervaya cifra = ',Frst);
Writeln('Poslednyaya cifra = ',Lst);
end;
var
s:string;
begin
Writeln('Cislo:');
Readln(s);
Writeln;
Poisk(s);
end.