Pascal, решена, редактирование.

[auhb]

Требуется помощь в небольшом редактировании.
Проблема заключается в том, что список надо брать не из массива, а из файла. Собственно проверка существование файла и его использование - чуть ниже, а после вставки того отрезка, ничего не пашет, сказали проблема в

readln(a[i].Uliza)

и аналогичных...

Сама задача.

Program ALP;
uses crt;
type
  TZakaz=record
     Uliza: string;
     Dom: string;
     Kvart: integer;

     chislo: integer;
     mesez: integer;
     god: integer;
  end;

type mas = array[1..100] of TZakaz;

var a: mas;
    n: integer;
    i: integer;
    c: integer;
    Uliza: string;
    chislo, mesez, god: integer;

procedure Vvod(var a: mas);
var i: integer;
begin
 write('Vvedite col-vo zapisei: '); readln(n);
 for i:=1 to n do
 begin
  write('Uliza: '); readln(a[i].Uliza);
  write('Dom: '); readln(a[i].dom);
  write('Kvartira: '); readln(a[i].kvart);

  write('Chislo: '); readln(a[i].chislo);
  write('Mesez: '); readln(a[i].mesez);
  write('God: '); readln(a[i].god);
  writeln;
 end;
end;

begin
c:=0;
 clrscr;
 Vvod(a);
 writeln('Vvedite danie dla poiska:');
 writeln;
 write('Uliza: '); readln(Uliza);
 write('God: '); readln(god);
 write('Mesez: '); readln(mesez);
 write('Chislo: '); readln(chislo);

 writeln;
 writeln('Resultat poiska: ');
 writeln;
 for i:=1 to n do
 if (a[i].uliza=Uliza)and(a[i].god=god)and(a[i].mesez=mesez)and(a[i].chislo=chislo) then
 begin
  inc(c);
  writeln('Uliza: ',a[i].Uliza);
  writeln('Dom: ',a[i].dom);
  writeln('Kvartira: ',a[i].kvart);

  writeln('Chislo: ',a[i].chislo);
  writeln('Mesez: ',a[i].mesez);
  writeln('God: ',a[i].god);

что надо впихнуть

fn:string;
f:text;
begin
fn:='';
repeat
write('input name of fail: ');
readln(fn)
assign(f,fn);
{$I-} {reset(f); {$I+}
if IOresult <>0 then
begin
writeln('Fail', fn,'not fround');
fn:='';
end;
until fn <>'';
while not eof(f) do

[Stilet]

Ну примерно так:

procedure Vvod(var a: mas);
var i: integer;fn:string;f:file of mas;
begin
 write('input name of fail: ');
 readln(fn)
 assign(f,fn);
 reset(f);
 if IOResult<>0 then begin
  writeln('Fail', fn,'not fround');
  readln;
  halt;
 end;
 i:=1;
 while (not eof(f))and(i<=length(a)) do begin
  read(f,a[i]);
 end;
  writeln;
 end;
end;

Не проверял, ибо файла нет.