Определить, является ли заданная строка правильным IP-адресом - Pascal ABC

Формулировка задачи:

Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-адреса: 127.0.0.0 192.168.0.01 255.00.255.255 Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом. Входные данные На вход программе подается строка длиной не более 15 символов, которая включает цифры и ровно три точки. Выходные данные Если строка является правильным IP-адресом, необходимо вывести 1, иначе 0.

Решение задачи: «Определить, является ли заданная строка правильным IP-адресом»

textual
                            Листинг программы 
                        

                            var s:string;
    i:byte;
begin
readln(s);
s:=s+'.';
i:=1;
while(pos('.',s)>0)and(i=1) do
 begin
  if not(strtoint(copy(s,1,pos('.',s)-1)) in [0..255]) then i:=0
  else delete(s,1,pos('.',s));
 end;
write(i)
end.
                        