Даны числа x,i,k,l,m,n. Найти числа, которые делятся на х — Pascal(Паскаль)

program one;
uses crt;
var x,i,k,l,m,n:integer;

begin
clrscr;
writeln('vveditb x: ');
readln(x);
writeln('vveditb i: ');
readln(i);
writeln('vveditb k: ');
readln(k);
writeln('vbeditb l: ');
readln(l);
writeln('vveditb m: ');
readln(m);
writeln('vveditb n: ');
readln(n);

if (i mod x)=0 then
writeln(i);
if (k mod x)=0 then
writeln(k);
if (l mod x)=0 then
writeln(l);
if (m mod x)=0 then
writeln(m);
if (n mod x)=0 then
writeln(n);

repeat until keypressed;
end.

Uses CRT;
Var
     I,X,T:Integer;
Begin
       Clrscr;
       Write('Введите X:');
       Readln(X);
       For I:=1 To 6 Do
       Begin
               Write('Введите число: ');
               Readln(T);
               If T mod X = 0 Then Writeln(T,' делится на ',X,' без остатка');
       End;
       Readln;
End.