Длинная целочисленная арифметика .Составить функцию вычисления целочисленного квадратного корня из длинно-го числа

В строчке While (s[1]='0') and (Length(s)>1) do Delete(s,1,1); выводит ошибку Ошибка времени выполнения: Индекс находился вне границ массива. Помогите исправить код, пожалуйста(

{функция сравнения двух целых чисел в строковой форме}
function Sravn(const x, y: string): boolean;
begin
Sravn := (length(x) > length(y)) or (length(x) = length(y)) and (x >= y)
end;
{функция сложения двух целых чисел}
Function Plus(a,b:string):string;
Var i,k,l:integer;
x,x1,x2:integer;
s,c:string;
p:boolean;
begin
Sravn(a,b);
p:=False;
s:='';
For i:=l Downto 1 do
begin
Val(a[i],x1,k);
Val(b[i],x2,k);
x:=x1+x2;If p then x:=x+1;
If x>9 then p:=True else p:=False;
x:=x mod 10;
Str(x,c);
s:=c+s
end;
If p then s:='1'+s;
Plus:=s
end;
{функция вычитания двух целых чисел}
Function Minus(a,b:string):string;
Var i,k,l:integer;
x,x1,x2:integer;
s,c:string;
p:boolean;
begin
Sravn(a,b);
p:=False;
s:='';
For i:=l Downto 1 do
begin
Val(a[i],x1,k);
Val(b[i],x2,k);
If p then x1:=x1-1;
If x1<x2 then begin x1:=x1+10;p:=True end
else p:=False;
x:=x1-x2;
Str(x,c);
s:=c+s
end;
While (s[1]='0') and (Length(s)>1) do Delete(s,1,1);
Minus:=s
end;

Function F(x:string):string;
var
b: char; {разряд результата}
a, d, r: string; {результат (корень), остаток, конечная разность}
n: integer; {номер сносимых разрядов}
begin

if x<>'0' then begin
while Sravn(d, r) do {пока остаток >= следующей конечной разности,}
begin
Minus(d, r); {вычитаем конечную разность из остатка}
inc(b); {разряд результата на 1 больше}
Plus(r, '2') {вычисляем следующую конечную разность}
end;
a := a + b; {приписываем найденную цифру к результату}
while n > length(x)do {... пока не кончатся разряды числа}
begin
F := a;
end;{возвращаем результат}
end;
end;

begin
var t,w,e:string;
var vremya:integer;
Write('ВВедите N: ');
Readln(t);
e:='';
vremya:=Milliseconds;
while t <> '0' do begin
w:=F(t);
e:=Plus(e,w);
t:=Minus(t,'1');
end;
writeln(e);

writeln('Время выполнения программы в милисекундах = ',Milliseconds - vremya);
end.

0

1

Сообщение от JuriiMW if first then first:=not first

Можно было перечислять a.Skip(1)

0