помогите решить лабы по паскалю!!!

[Ispanec777]

Пожалуйста помогите решить две лабы по Паскалю!!! Лабораторная №1 решение задачи с использованием типа "файл". Задача: Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке. :unsure: Лабораторная №2 решение задачи с помошью динамической памяти (УКАЗАТЕЛИ!!!). Задача: Даны натуральное число n, целые числа а1. ...... аn. Выяснить имеются ли среди чисел а1. ...... аn совпадающие! ПОМОГИТЕ!!! Мне очень срочно!!! Заранее благодарю! ICQ #357894047

[BHy4ok]

Я так понимаю на экран никакой информации выводить не нужно[#1]?
В коде заменишь путь к исходному и выходному файлам[Предварительно не забудь создать исходный файл на диске, иначе программа не будет работать].
#1:

Код: Выделить всё

uses crt;
var
   b,s:string;
   i,j,k:integer;
   f,f1:text;
begin ClrScr;
      i:=1 ;
      assign(f,'C:/f.txt');
      reset(f);
     read(f,s);
     b:=s;
for j:=length(s) downto 1 do
    begin
         b[j]:=s[i];
         i:=i+1;

    Assign(f1,'C:/g.txt');
    rewrite(f1);
         writeln(f1,b);
              end; close(f);close(f1);
end.