Паскаль , файловые типы прикрепите скрины тестов программы, очень нужно
1. В конец существующего текстового файла записать новую строку с текстом «здравствуйте, люди!»
2. Дан текстовый файл. Распечатать строку с заданным номером.
3. Создать текстовый файл, в каждой строке которого первые два символа являются буквами. Вывести на экран слово, образованное первыми буквами каждой строки.
4. Имеется текстовый файл, вывести на экран k-й символ n-строки .

алг
нач
  цел a, sum, pro
  вывод 'Введите трёхзначное положительное число: '
  ввод a
  если a<100 или a>999
    то вывод 'Это не трёхзначное число. Перезапустите программу!'
    иначе
      sum := mod(a, 10) + mod(div(a,10),10) + div(a,100)
      pro := mod(a, 10) * mod(div(a,10),10) * div(a,100)
      если sum > 9 и sum < 100
        то вывод 'Сумма цифр числа ',a,' - двухзначное число (',sum,')', нс
        иначе вывод 'Сумма цифр числа ',a,' - не двухзначное число (',sum,')', нс
      все
      если pro > 99 и pro < 1000
        то вывод 'Произведение цифр числа ',a,' - трёхзначное число (',pro,')', нс
        иначе вывод 'Произведение цифр числа ',a,' - не трёхзначное число (',pro,')', нс
      все
      если mod(sum, 3) = 0
        то вывод 'Эта же сумма (',sum,') кратна трём', нс
        иначе вывод 'Эта сумма (',sum,') не кратна трём', нс
      все
  все
кон

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38