Нужна помощь в решении нескольких задач

[-=<[Evklidd]>=-]

Вот 1 задача:

program pro29;
var
 matr: array [1..15,1..15] of integer;
 j, i, imax, imin, max, min: integer;
 n, m: 1..15;
begin
 Randomize;
 write('Vvedite kol-vo stolbcov matricu: ');
 readln(n);
 write('Vvedite kol-vo strok matricu: ');
 readln(m);
 for j:= 1 to m do
  begin
   for i:= 1 to n do
    begin
     matr[j,i]:= random(51);
     write(matr[j,i],' ');
    end;
   writeln('');
  end;
 max:= matr[1,1];
 min:= matr[1,1];
 imax:= 1;
 imin:= 1;
 for j:= 1 to m do
  for i:= 1 to n do
   begin
    if matr[j,i] > max then
     begin
      max:= matr[j,i];
      imax:= i;
     end;
    if matr[j,i] < min then
     begin
      min:= matr[j,i];
      imin:= i;
     end;
   end;
 for j:= 1 to m do
  begin
   matr[j,imax]:= 0;
   matr[j,imin]:= 0;
  end;
 for j:= 1 to m do
  begin
   for i:= 1 to n do
    write(matr[j,i], ' ');
   writeln('');
  end;
 readln;
end.

[KpeHDeJIb]

я немогу открыть temp.txt, просьба к motaro: просто напиши текст программы

[motaro]

держи

program aaa;
uses crt,graph;
var device,mode,x,y,i,v,j,k:integer;
const colors: array [1..9] of integer=(0,2,3,6,5,6,7,8,9);
 begin
 j:=-1; k:=0;
 x:=30; y:=25;
 writeln ('Vvedite nomer vida (1-3): ');
 readln (v);
 initgraph (device,mode,'');
 if v=1 then begin
  for i:=1 to 9 do
   begin
    circle (x,y,75);
    x:=x+80; y:=y+60;
   end;
  end;
 if v=2 then begin
 for i:=1 to 9 do
  begin
   setfillstyle (1,colors[i]);
   setcolor (colors[i]);
   circle (x,y,75);
   floodfill (x,y,colors[i]);
   x:=x+80; y:=y+60;
   if i>=9 then floodfill (630,475,9);
   end;
  setcolor (white);
  circle (30,25,75);
  end;
 if v=3 then begin
  for i:=1 to 9 do
   begin
    j:=j+2;
    k:=k+2;
    colors[j]:=7;
    colors[k]:=6;
   end;
  for i:=1 to 9 do
   begin
    setfillstyle (1,colors[i]);
    setcolor (colors[i]);
    circle (x,y,75);
    floodfill (x,y,colors[i]);
    x:=x+80; y:=y+60;
    if i>=9 then floodfill (630,475,7);
  end;
 end;
 readln;
 closegraph
end.

[KpeHDeJIb]

Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа)
---
как решать вобще не представляю

[puporev]

Поскольку формат текста не оговорен, будем считать, что это обычный текст, где слова разделены одним пробелом, если есть знаки препинания(разделители), то после них тоже стоит пробел, если это не последний знак в тексте ( типа Поле лес, снег: дома. ). Поэтому сначала удалим из текста все разделители, кроме пробелов. Затем текст преобразуем в массив слов. Потом сравнивая два массива, ищем одинаковые слова. Как только находим первое совпадение, выходим из программы. Если совпадений нет, выводим сообщение.
Чтобы два раза не преобразовывать тетст, оформил это процедурой.

uses crt;
const rzd=['.',',','?',';',':','!']; {разделители}
type Tmas=array[1..100]of string;
var s1,s2:string;
    ss1,ss2:Tmas;
    n1,n2,x,y,k:integer;
procedure Mass(s:string; var m:Tmas; var j:integer);
{входной параметр строка, выходные - массив и его размер}
var i:integer;
begin
{udalim razdeliteli}
for i:=length(s) downto 1 do
if s[i] in rzd then delete(s,i,1);
{sozdaem massiv slov}
j:=1;
for i:=1 to length(s) do
   begin
    if s[i]=' ' then j:=j+1
    else m[j]:=m[j]+s[i];
   end;
end;
begin
clrscr;
write('Vvedite 1 text: ');readln(s1);
write('Vvedite 2 text: ');readln(s2);
Mass(s1,ss1,n1);
Mass(s2,ss2,n2);
k:=0;
for x:=1 to n1 do
for y:=1 to n2 do
if (x<>y)and(ss1[x]=ss2[y]) then
   begin
    k:=k+1;
    writeln('Eto slovo ',ss1[x],'!');
    readln;
    exit;
   end;
if k=0 then writeln('Takih slov net!');
readln
end.

[KpeHDeJIb]

Всем спасибо за помощь

[LLIypLLIyH]

Сообщение от KpeHDeJIb

Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа)
---
как решать вобще не представляю

А ты уверен что это твой вариант?