Написать программу, которая запишет в текстовый файл 6 разных строк. Строки вводятся с клавиатуры. Паскаль.

Pascal var    s : string;    T : text;    i : integer; begin  assign (T,'File.txt'); //Ассоциация переменной T  с файлом File.txt  rewrite (T); //Перезапись файла T и открытие его для записи   for i := 1 to 6 do    begin     readln (s);     writeln (T,s);    end;   close(T); //Закрытие файла T end.