Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом. на паскале

begin var a:=ReadlnString ('IP='). ToWords ('.'); if a. Length4 then Writeln ('Адрес - это четыре числа, разделенные точками') else begin var n:integer; foreach var c in a do begin if not TryStrToInt (c, n) then begin Writeln (c,' - не целое число'); exit end else if n>255 then begin Writeln (c,' превышает 255'); exit end; end; Writeln ('IP-адрес корректен') end end.