Создание Бд на Pascal

type
     person=record
     name, sname :string[20];
     OT  :string[10];
     tel :string[6];
     poct:string[3];
     ves :string[2];
     ads :string[15];
     dav :integer;
 end;
 
var spisok:array[1..10] of person;
    i :integer;
 
begin clrscr;
 
for i:=1 to 2 do begin with spisok do begin
 
   write('Name - ');readln(name);
   write('Familia - ');readln(sname);
   write('Ot4ecTBO - ');readln(OT);
   write('PoCT - ');readln(poct);
   write('Bec - ');readln(ves);
   write('Adres - ');readln(ads);
   write('DaBlenie - ');readln(dav);
 end;
   end;
 
writeln;
 for i:=1 to 2 do begin with spisok do
 if ????? then write(sname:6,' ',OT,' ',name,' ',poct,' ',ves:3,' ',ads,' ');
     end;
 readln;
end.