кто может помогите пожалуйста решить

[innaa639]

1)Ввести два массива записей, которые содержат сведения о фамилиях и адресах. Необходимо записи, которые есть в первом массиве и которых нет во втором массиве, переписать к третьему массиву того же вида.
2)Заданный файл, который содержит телефонные номера работников учреждения. Указывается фамилия работника, ее инициалы и номер телефона. Ввести фамилию и имя из терминала. Отыскать телефон по введенным данным

Очень нужно,помогите!

[alex_fcsm]

uses crt;
const n=10;
type
 TUSER=record
    FIO:string[20];
    adr:string[40];
   end;

var a,b,c:array[1..10] of TUSER;
    i,j,ind:integer;
    flag:boolean;

begin

for i:=1 to n do
 begin
  clrscr;
  writeln('INPUT FIO - 20 symbols');
  readln(a[i].FIO);
  writeln('INPUT ADRESS - 40 symbols');
  readln(a[i].adr);
 end;

for i:=1 to n do
 begin
  clrscr;
  writeln('INPUT FIO - 20 symbols');
  readln(b[i].FIO);
  writeln('INPUT ADRESS - 40 symbols');
  readln(b[i].adr);
 end;
ind:=0;
 for i:=1 to n do
  begin
  flag:=true;
   for j:=1 to n do
    if (a[i].FIO=b[j].FIO) and(a[i].ADR=b[j].ADR) then flag:=false;
  if flag then begin
                inc(ind);
                c[ind]:=a[i];
               end;
  end;

end.

[alex_fcsm]

uses crt;
const n=10;
type
 TUSER=record
    Surname:string[20];
    Init:string[10];
    phone:string[20];
   end;

var a:array[1..10] of TUSER;
    i:integer;
    s,s1:string;

begin
for i:=1 to n do
 begin
  clrscr;
  writeln('INPUT Surname - 20 symbols');
  readln(a[i].Surname);
  writeln('INPUT other');
  readln(a[i].init);
  writeln('INPUT PHONE - 20 symbols');
  readln(a[i].phone);
 end;
 clrscr;
 Writeln('Input surname for searching...');
 readln(s);
  Writeln('Input other');
 readln(s1);
 Writeln('Input FIO');
 for i:=1 to n do
  if (a[i].surname=s) and (a[i].init=s1) then writeln(a[i].phone);
end.

[innaa639]

Огромное тебе спасибо))Обращайся если что

[innaa639]

А как их проверить?

[alex_fcsm]

Сообщение от innaa639

А как их проверить?

Запускай и вводи данные

[innaa639]

я запускаю но оно не правильно выводит

[innaa639]

1-ую я уже исправила,а во второй поиск не работает,просто вводится безконечно

[innaa639]

1-ую я уже исправила а во второй поиск не работает вообще,просто оно бесконечно вводит данные

[Stilet]

просто оно бесконечно вводит данные

Ничего подобного. Просто тебе нужно уменьшить константу n, на скажем 4. Этого хватит для тестов, ато приходится 30 строк вводить.