Pascal mały problem z endem

Pascal mały problem z endem

Witajcie,
Mam problem z kodem Pascala. Mianowicie coś jest z nim nie tak. czegoś pewnie brakuje ale nie wiem czego, przyznam się że nie siedziałem nad nim długo ale już tracę cierpliwość. A o to kod :
Program podzielnosc;
var
a,b,k,:longword;

begin
write('Podaj liczbę a'); readln(a);
write('Podaj liczbę b'); readln(b);


k:= a mod b;

while (k=0) and (k<0) do
begin
writeln('nie mozliwe')
if k<0 then
begin
k:= a mod b;
writeln('Wynik calkowity', k);
writeln('reszta', k);
end.

"while (k=0) and (k<0) do "

Tłumacząc na nasz:
Dopóki k jest równe 0 i k jest mniejsze od zera rób

Jak widzisz, to nie ma sensu. Nigdy k jednocześnie nie będzie mniejsze i równe zerze.

No i to co napisał poprzednik, masz 3 razy begin, musisz mieć 3 razy end. Traktuj begin i end jak nawiasy w zdaniach. Jak otworzysz nawias to też musisz go zamknąć.