8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / DIVISION_THROUGH_SUBTRACTION04

program division_thr_subtraction04;
var
n,i,m,l,f:byte;
a,b,c,d:string;
buf1,buf2,buf,q,del,sum:integer;
result:longint;
e,k:array[1..51] of byte;
begin
readln(a);
n:=length(a);
readln(b);
m:=length(b);
if length(a)>=length(b) then
begin

begin
l:=length(a);
i:=1;
result:=0;
repeat
c[i]:=a[n];
n:=pred(n);
i:=i+1;
until i>length(a);
i:=1;
repeat
d[i]:=b[m];
m:=pred(m);
i:=i+1;
until i>length(b);


for i:=1 to l do begin
val(c[i],k[i],q);
val(d[i],e[i],q); end;

repeat i:=1;del:=0;

repeat
buf:=k[i]-e[i]+del;
if buf<0
then begin k[i]:=buf+10; del:=-1; end
else begin k[i]:=buf; del:=0; end;
i:=succ(i);


until i>l; result:=result+1;
if e[l]>k[l]
then writeln('Incorrect numbers; try again');


sum:=0;
for f:=1 to l do
sum:=sum+k[f];
until sum=0;
end; writeln(result);readln;
end else Writeln('Incorrect numbers; try again');

end.