

Mam pewien problem z Pascalem

Nie znam się na nim za dobrze, a mam napisać taki program:
Napisz program, który zapisuje wprowadzony przez użytkownika tekst do pliku tekstowego o nazwie przyk.txt. Zapisywanie powinno zostać zakończone po napotkaniu pustego wiersza.
Poszperałem trochę w Internecie i napisałem coś takiego:
- Kod: Zaznacz wszystko
Program Przyk;
uses crt;
var txt : string;
t : Text;
begin
clrscr
assing(t,'D:\przyk.txt');
rewrite(t);
writeln('Napisz tekst');
readln(txt);
writeln(t,txt);
close(t);
end.
Wszystko działa, tylko nie wiem jak zrobić żeby program zapisywał po napotkaniu pustego wiersza


Proszę pomóżcie

