Pascal В списке сотрудников фирмы (мужчин) заданы стаж их работы и семейное положение. Определить холостого работника с наименьшим стажем работы.

ну вот смотри часть программы var и begin сам допишешь:var massiv:array[1..10] of integer; //стажmassiv1:array[1..10] of integer; //семейное положениеx:integer;for i:=1 to 10 do begin   //10 человекmassiv[i]:=random(10); //ну стаж любой до 10;massiv1[i]:=random(2); //если 0 значит холост если 1 - женатif massiv1[i]=0 then x:=i;end;for i:=1 to 10 do begin  if (massiv1[i]=0) and (massiv[i]<massiv[x]) then x:=i;writeln('Холостой работник с наименьшем стажем под номером ',x)end;