Помогите с проверкой ввода в паскале

[neomaximus]

Надо добавить проверку ввода, и еще пожалуйста распишите за что отвечает каждая строчка вот тект:
В небоскрёбе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?
А вот сам код

program neboskreb;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var m,i : integer;
    n : real;
begin
writeln('**********************zadanie1.1************************');
Writeln('**********************uslovie***************************');
writeln('V neboskrebe N etajey i vsego odin podezd; na kajdom etaje po 3'); writeln('kvartiti; lift mojet ostanavlivatsya tolko na nechetnih etajah.Chelovek'); writeln('saditsya i nabiraet nujnii nomer kvartiri M. Na kakoi etaj doljen');
writeln(' dostavit lift passajira?');
Writeln('Vipolnil student gruppi EVMK-06-1 Melihov Maxim');
Writeln('Najmite enter');
readln;
  write(' nomer kvartiri - '); readln(m);
  n:=m/3;
  if m mod 3 <> 0 then n:=n+0.5;
  i:=round(n);
  if i mod 2 = 0 then i:= i-1;
  writeln('etaj  - ',i);
readln;
end.

[Air]

А что проверять то?...
Номер? или...
Ввод только цифр
if Not (Key in ['0'..'9']) then writeln('vvedite chislo');

[neomaximus]

чето не пашет ругается на Key

[puporev]

Если ты прогоняешь программу в консоли Делфи, как у тебя написано, то ругаться не должно. Если же ты содрал чужой код и пытаешься засунуть его без изменений в Паскаль, ко конечно ругаться будет, там функции key нет. Пиши чего тебе конкретно нужно. Задача решена некрасиво (что это за доли этажей?), кроме того неправильно. У тебя, чтобы попасть на четный этаж, нужно один этаж подниматься ногами, так не лучше ли спускаться?
Исправь if i mod 2 = 0 then i:= i-1; на if i mod 2 = 0 then i:= i+1;

[Air]

Сообщение от neomaximus

чето не пашет ругается на Key

Тьфу ты, совсем головой думать перестали...

Key:char;

Просто замени Key на "m"
А потом проверку
if Not (m in ['0'..'9']) then writeln('vvedite chislo');
после возврат, можно организовать через goto, вот так к примеру.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Label 1;
var
m: char;
begin
write(' nomer kvartiri - ');
1:
readln(m);
if Not (m in ['0'..'9']) then
 begin
  writeln('vvedite chislo');
  goto 1;
 end;
end.

во работает