program zapisz;
uses crt;

{w komentarzach ponumerowalem wszystkie operacje na pliku
plik zapisze sie w lokalilzacji c:\fpc\baza.txt }


var
tab : array[1..5] of string;
plik : text; { <= 1 - powolanie do zycia zmiennej }
i : integer;

begin
clrscr;

assign(plik, 'c:\FPC\baza.txt'); { <= 2 - powiązanie zmiennej z plikiem}

rewrite(plik); { <= 3 - otwarcie pliku do zapisywania}


{upraszczam wpisujac takie same elementy do tablicy}
for i:=1 to 5 do
begin
tab[i]:='ala ma kota';
end;


{zapisuja wszystkie elementy z tablicy do pliku plus cos jeszcze}
for i:=1 to 5 do
begin
write(plik, tab[i]);     { <= 4 - zapisanie elementu tablicy do pliku}
writeln(plik, ' - ',i);  { <= 5 - numerowanie elementu po myslniku}
end;

close(plik);             { <= 6 - zamkniecie pliku KONIECZNE!}


writeln('plik zapisano (ENTER)');
readln;

end.