Помогите с задачами по Pascal

[playone]

Помогите дорогие мои решить сл. задачи. Скоро сессия а я в полной жопе с остальными предметами и на программирование не остальсь времени.
----------------------------------------
1)Дана матрица R(9,9). Найти найменьший элемент в каждой строке и записать его на месте первого элемента строки. Вывести исходную и полученною матрицу.
----------------------------------------
2)Дана строка состоящая из русских слов, разделённых пробелами(с одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и тойже буквой и содержащие букву "А".
----------------------------------------
3)Из файла F в файл G записать данные ввиде: eсли число положительное в F то в G записывается "2", если отрицательное то "1".
----------------------------------------
4)При поможи типизированиого файла. Дана база дынных:
-Название кружка
-Преподователь
-Кол-во человек
-Возраст (средний)
Организавать поиск по возрасту с видом:
-Название кружка
-Фамилия (Препода)
-Кол-во человек
----------------------------------------
5)Сделать при поможи графиков часы

 

[Guest_alex]

Где взять игру "Спички" на TurboPascal

 

[Barmutik]

Пора открывать бюро платных услуг по написанию задач для сдачи сессии

 

[admin]

Barmutik
link removed
%)
playone
link removed
%)

 

[Barmutik]

Вот спасибо подсказал

 

[admin]

Barmutik
как почетному члену твои темы даже закреплены будут

 

[Aliaksandar]

Ну я не знаю если правильно понял то 3 задача вообще лёгкая как и остальные в принципи
Кароч эта прога если числа в файле F идут каждое число в новой строке

{$APPTYPE CONSOLE}
uses
SysUtils;
var
F,G:TextFile;
StrCount:string;
function Chet(a:integer):integer;
begin
If a mod 2=0 then result:=2;
If a mod 2<>0 then result:=1;
If a=0 then result:=0;
end;
begin
AssignFile(F,'F.txt');
AssignFile(G,'G.txt');
Reset(F);
Rewrite(G);
While not Eof(F) do
begin
 Readln(F,StrCount);
 Writeln(G,IntToStr(Chet(StrToInt(StrCount))));
end;
CloseFile(F);
CloseFile(G);
end.
 {Alex RedWoodLan 2005}