не можу зрозуміти

[Влад Поправка]

Дано масив, з нього я повинен забрати деякі числа і все що залишиться в масиві вивести

[Rin]

Впредь, если знаете русский язык, пишите задание на русском языке, ибо не все украинский знают. Понимаю, лень учить язык программирования, но чтобы помогли не поленитесь.
Не создавал файла INPUT.TXT , но должно работать.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 type
 z=record
   a,b:integer;
 end;
 ar=array of integer;

 var
 meshok1,meshok2,meshok3:ar;
 f_input,f_output:Textfile;
 i,max:integer;
 n,k,m:integer;
 reading:string;
 q:z;

 function one(s:string):z;
 begin
   result.a:=q.a;
   result.b:=0;
   if length(s)=0 then exit;
   while s[result.a] in ['0'..'9'] do
    begin
     result.a:=result.a+1;
     result.b:=result.b+1;
    end;
 end;

function two(s:string):ar;
var j:integer;
begin
 q.a:=1;
 j:=1;
 for i := 1 to length(s) do
 begin
   while not(s[q.a] in ['0'..'9']) do q.a:=q.a+1;
   setLength(result,j);
   result[j-1]:=strtoint(copy(s,q.a-q.b,q.b));
   j:=j+1;
 end;
end;

begin
assignfile(f_input,'input.TXT');
rewrite(f_input);
readln(f_input,reading);

q.a:=1;
q:=one(reading);
n:=strtoint(copy(reading,q.a-q.b,q.b));

while not(reading[q.a] in ['0'..'9']) do q.a:=q.a+1;
q:=one(reading);
m:=strtoint(copy(reading,q.a-q.b,q.b));

while not(reading[q.a] in ['0'..'9']) do q.a:=q.a+1;
q:=one(reading);
k:=strtoint(copy(reading,q.a-q.b,q.b));

readln(f_input,reading);
meshok1:=two(reading);

readln(f_input,reading);
meshok2:=two(reading);
closefile(f_input);

setlength(meshok3,n);
for I := 1 to n do meshok3[i-1]:=i;

if high(meshok1)>high(meshok2) then max:=high(meshok1)
   else max:=high(meshok2);

for I := 0 to max do
begin
  if i<=high(meshok1) then meshok3[meshok1[i]]:=0;
  if i<=high(meshok2) then meshok3[meshok2[i]]:=0;
end;

reading:='';
assignfile(f_output,'f_output.txt');
reset(f_output);
writeln(f_output,high(meshok3+1));
for I := 0 to n - 1 do
if meshok3[i]<>0 then reading:=reading+' '+inttostr(i+1)+' ';
writeln(f_output,reading);
closefile(f_output);
end.

[Влад Поправка]

спасибо помогло