Написать программу записи в текстовый файл любого количества строк введенных с клавиатуры — Pascal(Паскаль)

uses crt;
var s:string;
    f:text;
begin
ClrScr;
Readln(s);
Assign(f,'stroka.txt');
Rewrite(f);
 Write(f,s);
close(f);
Readln;
end.