Паскаль , файловые типы прикрепите скрины тестов программы, очень нужно
1. В конец существующего текстового файла записать новую строку с текстом «здравствуйте, люди!»
2. Дан текстовый файл. Распечатать строку с заданным номером.
3. Создать текстовый файл, в каждой строке которого первые два символа являются буквами. Вывести на экран слово, образованное первыми буквами каждой строки.
4. Имеется текстовый файл, вывести на экран k-й символ n-строки .
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
write('Введите число номером ', i, ': ');
readln(num);
if num = 0 then inc(nulls, 1);
if num < 0 then inc(negative, 1);
if num > 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
writeln('Кол-во положительных чисел: ', positive);
writeln('Кол-во отрицательных чисел: ', negative);
end.