"В текстом файле необходимо вывести первую букву во второй строке"
Подскажите как перейти ко второй строке и вывести на печать первый символ, вот наработка моей задачи
program f375;
var f : text;
s : string;
begin
assign(f, 'C:\1.txt');
reset(f);
readln(f,s);
writeln (copy(s,1,2)) ;
close(f);
end.
М | Тэги! |