z tym rekordem to będzie lipa bo:
np będzie to rekord
const
rozmiar_tablicy = 200;
type
elementy_tablicy = string[40]; // tu ograniczasz dla uściślenia
// lub używasz Pchar, ale to trudniejsze
typ_trablicy = array [0..rozmiar_tablicy] of elementy_tablicy;
twoj_rekord = record
dane1, dane2, dane3: typ_danych;
tablica, tablica, tablica : typ_tablicy;
end;
teraz odczyt do pliku
function odczyt_rekordów(plik: string):boolean;
var
twoj_plik : file of twoj_rekord;
licznik : byte;
Bufor : twoj_rekord;
{...}
begin
{...}
// otwórz plik
repeat
read(twoj_plik,Bufor);
// zrób co musisz z rekordem z pliku
// i wczytaj następny
until eof(twoj_plik);
// zamknij plik
{...}
odczyt_rekordów:=true;
end;
nie musisz ograniczać się do czytania tylko po jednym rekordzie, co tyczy się też zapisu.
Jednak podejrzewam, że twoje rekordy nie mają ściśle określonych rozmiarów, więc nie pójdzie tobie tak łatwo z tym. zamiast zapisu i odczytu procedurą read i write. będziesz musiał zająć się kontrolowanym wczytywaniem za pomocą TFileStream