Задача на литеры. Паскаль

Program Liter;
uses crt;
var
c,l:char;
a,kol,i:integer;
p, p2:boolean;
begin
writeln('Введите последовательность от 1 до 12');
p:=true;
p2:=true;
kol:=0;
c:=readkey;
write(c);
kol:=kol+1;
l:=c;
if ((ord(c)<48) or (ord(c)>57)) and (c<>#13) then
begin
   p:=false;
   p2:=false;
end else
 
repeat
c:=readkey;
kol:=kol+1;
write(c);
if ((ord(c)<48) or (ord(c)>57)) and (c<>#13) then
begin
   p:=false;
   p2:=false;
break end else
if kol=2 then
a:= ord(c)-ord(l);
if (ord(c) - ord(l) <> a) and (c<>#13) then
p2:=false;
 
l:=c;
until (kol>=12) or (c=#13);
writeln;
if p=true then writeln('Текст состоит только из чисел.') else writeln('Текст состоит не только из чисел.');
if p2=true then writeln('Является арифметической прогрессией') else writeln('Не является арифметической прогрессией');
end.