Сколько времени на дорогу из школы до станции,

Program kvadr;
uses crt;
function KvSumCif(a,b:integer):boolean;//входные параметры-число и заданный квадрат
var sum,i,x,code:integer;
    s:string;
begin
str(a,s);
sum:=0;
for i:=1 to length(s) do
  begin
    val(s[i],x,code);//превращаем символы в цифры 
    sum:=sum+x;
  end;
if sqr(sum)=b then KvSumCif:=true //если сходится
else KvSumCif:=false; //если нет
end;
 
var m,n,i,k:integer;
begin
clrscr;
Writeln('Input n');
Readln(n);
Writeln('Input m');
Readln(m);
k:=0; //считаем что таких чисел нет
for i:=1 to n-1 do
if KvSumCif(i,m) then //если сходится
  begin
   writeln('Numbers= ',i);//выводим
   k:=1; //оказывается есть!
  end;
if k=0 then write('Takih chisel net!');
readln
end.

uses crt;
 
var
i, j, k:    integer;
cena:     real;
 
begin
clrscr;
   writeln('Cena za 1 kg: ');
       readln(cena);
       i:=100;
   while i<800 do
begin
       i:=i+100;
       writeln(i,' g ', (i*cena)/1000:0:0,' rub ');
   end;
readln;
end.

uses crt;
var
t,s,v:    real;
 
begin
clrscr;
   writeln('Введите путь пройденный мальчиком: ');
       readln(s);
           writeln('Введите скорость мальчика: ');
       readln(v);
   t:=s/v;
writeln('Мальчик проходит путь за время: ',t*60:2:2, ' min');
readln;
end.