помогите найти синтаксическую ошибку

uses crt;
var max,min:real;
C,S,A,B:integer;
M:array [1..6,1..6] of real;
M1:array[1..6,1..6] of real;
begin
clrscr;
writeln('вод элементов: ');
for c:=1 to 6 do
for S:=1 to 6 do
begin
writeln('строка',C,'столбец',S,' : ');
readln(M[C,S]);
end;
writeln('вы ввели: ');
for C:=1 to 6 do
begin
for S:=1 to 6 do write (M[C,S]:8:2);
writeln - ЗДЕСЬ - НЕТ ТОЧКИ С ЗАПЯТОЙ
end;
A:=1;
max:=M[1,1];
for C:=1 to 6 do
for S:=1 to 6 do if max < M[C,S] then A:=C;
B:=1;
min:=M[1,1];
for C:=1 to 6 do
for S:=1 to 6 do if min > M[C,S] then B:=C;
for S:=1 to 6 do M1[A,S]:=M[A,S];
for S:=1 to 6 do M[B,S]:=M[B,S];
for S:=1 to 6 do M[B,S]:=M1[A,S];
writeln('новая матрица');
for C:=1 to 6 do
begin
for S:=1 to 6 do write(M[C,S]:8:2);
writeln - ЗДЕСЬ - НЕТ ТОЧКИ С ЗАПЯТОЙ
end;
readkey;
end.

for S:=1 to 6 do if min > M[C,S] then B:=C;
for S:=1 to 6 do M1[A,S]:=M[A,S];
удалить

Оо
выглядит как набор непонятных символов и букв. Что это такое?

может writeln. Как вариант writing или write in. Но там дальше readln.. Тагда и его надо как-то менять.
А может useRs

Открою тебе страшную тайну: чтобы найти синтаксическую ошибку (именно синтаксическую) , нужно запустить компилятор! Если есть ошибка - он тебе о ней обязательно сообщит, еще и скажет в какой строке!

Это чё за тема????