Проверка домашнего задания по информатике

от деления целого числа x на целое число y.
program n_14;
var x, y, q, r: integer;
begin
writeln ('Частное и остаток'); write ('Введите делимое x>>');
readln (x);
write ('Введите делитель y>>');
read (y);
r:=x;
q:=0;
while r>=y do
begin
r:=r-y;
q:=q+1
end;
writeln ('Частное q=', q); writeln ('Остаток r=', r)
end.

отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль
program n_18;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
writeln ('Введите целые числа>>');
read (n);
while n<>0 do
begin
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
read (n);
end;
writeln ('Введено:');
writeln ('положительных – ', k1);
writeln ('отрицательных – ', k2)
end.