Помогите с delphi там мало)

program Project2; //имя программы

{$APPTYPE CONSOLE} //Консоль

uses //Используемые модули
SysUtils; //только системный

const //Создаем константы
c=4; ff=10;
cb=5; fb=5;
var F,P,nk,kvp:integer;
d:char;

begin
writeln ('home=?'); // Выводим в консоль home=?
readln (d); //Запоминаем в d то что ввели
writeln ('nk=?'); // Выводим в консоль nk=?
readln (nk); //Запоминаем в nk то что ввели

if d='A' then //если d равен букве А (хз к чему это) , то делаем следующее:
begin

p:=((nk-1)div (c*ff))+1; // Вычисляем, где div - деление без остатка
kvp:=(nk-1) mod (c*ff); // Вычисляем, где mod = деление с возвратом остатка
F:= ((kvp-1) div c)+1; // Вычисляем Думаю остальное в формулы подставишь.. .
writeln (F); // Выводим значение F(этаж)
writeln (p); // Выводим значение p(подъезд)
readln; // Ждем нажатия для завершения
end

else //если d не равен букве А, то делаем следующее:
begin

p:=((nk-1)div (cb*fb))+1; // Вычисляем
kvp:=(nk-1) mod (cb*fb); // Вычисляем
F:= ((kvp-1) div cb)+1; // Вычисляем
writeln ('nomer etaga:',F); // Выводим значение F(этаж)
writeln ('nomer podezda:',p); // Выводим значение p(подъезд)
writeln ('Ya znau vse'); // Выводим строку я знаю все
readln; // Ждем нажатия для завершения
end;
end.

чё-то я не понимаю, зачем номер дома? у вас один фиг кол-во этажей, квартир на этаже- это константы...