Строки в книге

[Annchka]

В книге на одной странице помещается K строк. Таким образом, на 1-й странице печатаются строки с 1-й по K-ю, на второй — с (K+1)-й по (2∙K)-ю и т.д. Напишите программу, которая по номеру строки в тексте определяет номер страницы, на которой будет напечатана эта строка, и порядковый номер этой строки на странице.
Формат входных данных
Вводятся два числа: K — количество строк, которое печатается на странице, и N — номер строки (1≤K≤200, 1≤N≤20000).
Формат выходных данных
Выведите два числа — номер страницы, на которой будет напечатана эта строка, и номер строки на странице.

[Step_UA]

var k:byte;
    n:word;
begin
 repeat
  write('Vvedite kol-vo strok na stranice: ');
  readln(k)
 until (k>0) and (k<=200);
 repeat
  write('Vvedite nomer stroki: ');
  readln(n)
 until (n>0) and (n<=20000);
 writeln('Stranica: ',(n-1) div k +1,'   Stroka: ',(n-1) mod k+1);
 readln
end.

[challengerr]

var
k,n : integer;

procedure input();
begin
readln(k);
readln(n);
end;

procedure check();
begin
if k<1 then
halt();
if n<1 then
halt();
if k>200 then
halt();
if n>20000 then
halt();
end;

procedure str();
var i:integer;
begin
i := 0;
while n>k  do
begin
n:=n-k;
writeln(n);
i:=i+1;
end;
if n=0 then
 i:=i+1;
writeln('stranica: ',i);
if n<> 0 then
begin
writeln('stroka: ', n);
end
else
begin
writeln('stroka: ', k-1);
end;
end;

begin
input;
check;
str;
end.

Запасной вариант.