dwuwymiarowa tablica rekordow i jej zapis do pliku

Moze pierw maly wycinek programu:

type place = record
cos:string[15];
fun:string;
n:boolean;
s:boolean;
end;

type tab=array[1..100] of place;
tab1=array[1..100] of ^tab;

var lok:tab1;
x,y:byte;
znak:char;
f:file of place;

Glownie chodzilo mi o stworzenie duzej dwuwymiarowej tablicy rekordow.
Tylko, nie wiem jak to zachowac do pliku. Teorytycznie moglbym <ort>po prostu</ort> stworzyc tablice3d i <ort>po prostu</ort> wypisac wszystkie dane do pliku, ale chce miec ulatwione wczytywanie danych z pliku, czy szukanie Probowalem tak:

assign(f,'c:\file.rcd');
rewrite(f);
write(f,*);
close(f);

*tutaj nie wiem co mam wstawic, probowalem i place i lok.

Prosze o pomoc

Dziwnie robisz tablice dwuwymiarowe... Nie lepiej tak?:

type place = record
  cos:string[15];
  fun:string;
  n:boolean;
  s:boolean;
end;
var
lok:array[1..100,1..100] of place;
f:file;

[...]

AssignFile(f,'c:\file.rcd');
Rewrite(f,1);
BlockWrite(f,lok);
CloseFile(f);

fun:string; określ długość - ten plik typowany musi mieć jakieś rozmiary.

Teoretycznie masz racje, tylko ze wywali mi, ze zajmuje to za duzo pamieci, dlatego uzywam wskaznikow i tu jest problem.

Tak, tak wiem juz to zrobilem, ale to i tak nie rozwiazuje mojego problemu.

var
  i,j : integer;
{...}

for i := 1 to 100 do
for j := 1 to 100 do
write(f,tab[i]^[j]);


{...}