Something

program pisemne;
uses crt;
var
dzielna:string;
dzielnik:string;
dziel:string;
wynik:integer;
reszta:integer;
krok:integer;
blad:integer;
cos:string;
c:integer;
dn,dk,dldk,dldn,w,dz,odj:integer;
n: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;
n:=dldn-dldk;
for krok:=1 to n do
        begin
        {if dz>=dk then }
                {begin }
                w:=dz div dk;
                wynik:=wynik*10+w;
                odj:=w*dk;
                dz:=dz-odj;
                cos:=dzielna[length(dziel)+krok];
                val(cos,c,blad);
                dz:=dz*10+c;

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