3 задачи среднего уровня.Нужна помощь в решении.

[tgk_]

Задача 1. Создать программу, с процедурой дешифровки строки с двумя параметрами. В первом параметре передавать строку для дешифровки, во втором параметре передавать перестановку 26 латинских букв алфавита. Принцип дешифрации состоит в следующем. Если некоторая буква первого параметра является k-ой буквой во втором параметре процедуры, то вместо нее должна быть взята буква из k-ой позиции в обычном алфавите. Вывести на экран зашифрованную строку, ее расшифровку и второй параметр процедуры («новый алфавит»).
Задача 2. Создать программу, в которой из любого, созданного ранее текстового файла, где хранятся целые числа типа Integer, считывать всю информацию и сохранить ее в двух других текстовых файлах положительные числа сохранить в одном файле, отрицательные в другом. Использовать процедуру, в которой подсчитать число отрицательных и положительных элементов в файле, нулевые элементы считать положительными. Вывести всю информацию на экран.

Задача 3. Создать программу с процедурой, в которой считать информацию из типизированного файла символов, вывести ее на экран, и записать в другой типизированный файл, найти первый пробел и удалить всю информацию из нового файла после первого пробела, считать из нового файла символы и вывести их на экран.

[Stilet]

В чем именно нужна помошь?

[tgk_]

в решении.))
первую задачу мне обьяснили,постараюсь сделать.
а вот со 2 и 3 не могу разобраться.

[KORN]

ну выкладывай что не получается... давай наработки

[Stilet]

Задача 2.

УбЭдыл(а). Навскидку так

var f,f1,f2:text;s:string;plu,mi,i:integer;

procedure count(c:integer);
begin
 if c>=0 then inc(plu) else inc(mi);
end;

begin plu:=0;mi:=0;
 Write('Имя файла откуда читаем ');readln(s);
 Assign(f,s); Assign(f1,'f1.txt');Assign(f2,'f2.txt');
 while not eof(f) do begin
  readln(f,i);
  if i>0 then writeln(f1,i) else writeln(f2,i);
  count(i);
 end;
 close(f); close(f1); close(f2);
 Writeln('Положительных = ',plu:3,' Отрицательных = ',mi:3);
end.