Mine

program pisemne;
uses crt;
var
dzielna:string;
dzielnik:string;
dziel:string;
wynik:integer;
reszta:string;
krok:integer;
blad:integer;
cos:string;
c: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);

if dn<dk then
         begin
                writeln('dzielna jest mniejsza od dzielnika');
                writeln('twoj wynik to 0, r.',dk);
         end

else
begin
dldn:=length(dzielna);
dldk:=length(dzielnik);
dziel:=copy(dzielna,dldk,1);
val(dziel,dz,blad);
wynik:=0;

for krok:=1 to (dldn-dldk) do
        begin
        if dz>=dk then
                begin
                w:=dz div dk;
                wynik:=wynik*10;
                wynik:=wynik+w;
                odj:=w*dk;
                dz:=dz-odj;
                cos:=dzielna[length(dziel)+krok];
                val(cos,c,blad);
                dz:=dz*10+c;

                end
        else
        reszta:=dziel;
end;
end;
writeln('to twoja dzielna: ',dn);
writeln('to twoj dzielnik: ',dk);
writeln('wynik z dzielenia :',wynik,'reszty :',reszta);
readln;
end.