Someone

program pisemne;
uses crt;
var
dzielna:string;
dzielnik:string;
dziel:array [1..1000] of integer;
wynik:integer;
reszta:integer;
krok:integer;
blad:integer;
dn2,i,j:integer;
dn,dk,dldk,dldn,w,dz,odj:integer;

begin
writeln('podaj dzielna i dzielnik');
readln(dzielna);
readln(dzielnik);

val(dzielnik,dk,blad);
val(dzielna,dn,blad);
writeln('dn: ',dn);
writeln('dk: ',dk);
dldn:=length(dzielna);
writeln('dldn: ',dldn);
dldk:=length(dzielnik);
writeln('dldk: ',dldk);

dn2:=dn;
for i:=dldn downto 1 do
    begin
    dziel[dldn]:=dn2 mod 10;
    dn2:=dn2 div 10;
    writeln('dziel[',i,']:  ',dziel[dldn]);
    end;

for j:=1 to dldn do
begin
    writeln('dziel[',j,']:  ',dziel[j]);
end;

for krok:=1 to dldn do
            begin
                writeln('krok: ',krok);
                dz:=(dz*10)+dziel[krok];
                writeln('dziel[',krok,']',dziel[krok]);
                writeln('dz: ',dz);
                w:=dz div dk;
                writeln('w: ',w);
                wynik:=wynik*10+w;
                writeln('wynik: ',wynik);
                odj:=w*dk;
                writeln('odj: ',odj);
                dz:=dz-odj;
                writeln('dz: ',dz);
                reszta:=dz;
                writeln('reszta: ',reszta);
             end;
writeln('dzielna: ',dn);
writeln('dzielnik: ',dk);
writeln('wynik z dzielenia :',wynik,'reszty :',reszta);
readln;
end.