Каждую программу написать с использованием подпрограмм (процедуры или функции)
1. Дано натуральное число. Найти первую и последнюю цифры числа.
Program Lab51;
procedure Poisk(an:string);
var
p,t,i:integer;
begin
p:=Ord(an[1])-Ord('0');
i:=Length(an);
t:=Ord(an[i])-Ord('0');
Writeln('Pervaya cifra = ',p);
Writeln('Poslednyaya cifra = ',t);
end;
var
s:string;
begin
Writeln('Cislo:');
Readln(s);
Writeln;
Poisk(s);
end.
В программе, когда вбиваешь число например: 56, выводит все правильно первая 5 вторая 6, но также если вбить: "уйц", то выводит первая цифра 195, а вторая 198.
Помогите найти ошибку препод вынес мозг.