Как в программе Turbo Pascal написать программу для нахождения первой цифры числа?

Переводишь число в строку и из строки выделяешь первый символ... на делфи без проблем реализуется

O_o напиши в личку поподробнее

var n:integer;
s:string;
begin
readln(n);
str(n,s);
writeln(s[1]);
end.

считываем число
переводим в строку
выводим первый символ строки

uses crt;
var a,m:longint;
begin clrscr;
write('vvedite a:');
readln(a);
while a<>0 do
begin
m:=a mod 10;
a:=a div 10;
end;
write('pervaia cifra chisla:',m);
readkey;
end.