Крестики-нолики

uses crt;
var n1,n2,n3:byte;
begin
clrscr;
repeat
writeln('Введите 3 разных числа от 1 до 9:');
readln(n1,n2,n3);
until(n1>0)and(n2>n1)and(n3>n2)and(n3<10);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!')
else if(n2-n1=1)and(n3-n2=1) then write('На горизонтали!')
else if((n2-n1=2)and(n3-n2=2))
     or((n2-n1=4)and(n3-n2=4)) then write('На диагонали!')
else write('Номера не упорядочены!');
readln
end.

uses crt;
var n1,n2,n3:byte;
begin
clrscr;
repeat
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if (n1<1)or (n3>10) then
writeln('Введены числа не входящие в инт.[1..9], Повторите ввод.')
else if (n2<=n1)or(n3<=n2) then
writeln('Числа введены не по порядку. Повторите ввод.');
until(n1>0)and(n2>n1)and(n3>n2)and(n3<10);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!')
else if(n2-n1=1)and(n3-n2=1)and(n3 mod 3=0) then write('На горизонтали!')
else if((n2-n1=2)and(n3-n2=2))
     or((n2-n1=4)and(n3-n2=4)) then write('На диагонали!')
else write('Номера не упорядочены!');
readln
end.

uses crt;
var n1,n2,n3,k:byte;
begin
clrscr;
repeat
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if (n1<1)or (n3>10) then
writeln('Введены числа не входящие в инт.[1..9], Повторите ввод.')
else if (n2<=n1)or(n3<=n2) then
writeln('Числа введены не по порядку. Повторите ввод.');
until(n1>0)and(n2>n1)and(n3>n2)and(n3<10);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!')
else if(n2-n1=1)and(n3-n2=1)and(n3 mod 3=0) then write('На горизонтали!')
else if(((n2-n1=2)and(n3-n2=2))
     or((n2-n1=4)and(n3-n2=4)))and(n1+n3=10) then write('На диагонали!')
else write('Номера не упорядочены!');
readln
end.

uses crt;
procedure Vvod(var n1,n2,n3:byte);
begin
repeat
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if (n1<1)or (n3>10) then
writeln('Введены числа не входящие в инт.[1..9], Повторите ввод.')
else if (n2<=n1)or(n3<=n2) then
writeln('Числа введены не по порядку. Повторите ввод.');
until(n1>0)and(n2>n1)and(n3>n2)and(n3<10);
end;
function Result(n1,n2,n3:byte):string;
var s:string;
begin
if(n2-n1=3)and(n3-n2=3)then s:='На вертикали!'
else if(n2-n1=1)and(n3-n2=1)and(n3 mod 3=0) then s:='На горизонтали!'
else if(((n2-n1=2)and(n3-n2=2))
     or((n2-n1=4)and(n3-n2=4)))and(n1+n3=10) then s:='На диагонали!'
else s:='Номера не упорядочены!';
Result:=s;
end;
var k1,k2,k3:byte;
    r:string;
begin
clrscr;
Vvod(k1,k2,k3);
r:=Result(k1,k2,k3);
write(r);
readln
end.