2 задачи в Паскале помогите решить

[Baby33]

Здравствуйте! Пожалуйсто помогите! Не могу решить 2 программы в Паскале.... Нужно в течении часа. Сегодня зачет(((

1) Дано слово из трех слогов и слог. Определить имеется ли в слове заданный слог. Сделать соответствующее сообщениею

2)В матрице имеется единственный максимальный элемент. Необходимо все отрицательные элементы в строках, которые следуют за строкой, содержащей максимум, заменить их квадратами

[Сергей089]

В первой так что ли? У меня получилось, что вводить можно что угодно.

program f;
uses crt;
var s1,s2:string;
begin
clrscr;
writeln ('Введите слово');
readln(s1);
writeln ('Введите слог');
readln(s2);
{проверка}
if pos(s2,s1)=0 then writeln('Ответ: нет')
else writeln('Ответ: да');
readln;
end.

[Сергей089]

Вот вторая. Я не знал как сделать максимум единственным, поэтому просто увеличил на единицу первый максимум.

program s;
uses crt;
const d=10;
var a:array [1..d,1..d] of integer;
n,m,i,j,k,l:integer;
begin
clrscr;
writeln ('Введите размеры матрицы');
repeat
write ('n=');
readln (n)
until (n>0) and (n<=d);
repeat
write ('m=');
readln(m)
until (m>0) and (m<=d);
{Ввод матрицы}
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(200)-100;
{поиск максимального элемента}
k:=1;
l:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>a[k,l] then begin
k:=i;
l:=j;
end;
{делаем максимум единственным}
a[k,l]:=a[k,l]+1;
{Вывод матрицы на экран}
clrscr;
writeln ('Дана матрица');
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:7);
writeln;
end;
{Заменяем отрицательные элементы}
for i:=k+1 to n do
for j:=1 to m do
if a[i,j]<0 then a[i,j]:=sqr(a[i,j]);
{Вывод матрицы на экран}
writeln ('Получена матрица');
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:7);
writeln;
end;
readln;
end.

[Baby33]

Сергей, Спасибо оргомное за помощь!!!!!!!!!!!!!!!!!!!!!!1