Нужно перевести задачу с паскаля на DELPHI

[VDK23RUS]

У мя есть программка на Pascal а мне надо на Delfi работала,помогите!!!

Program Exchange;
Uses Crt;
Type Mas = Array [1..10, 1..10] of Real;
Var A : Mas;
N, M, P, Q, i, j : Integer;
Tmp : Real;
{------------------------------------------}
Procedure InputOutput(Var A:Mas); {описаниепроцедурыввода-вывода }
Begin
ClrScr;
Write('Количество строк - '); ReadLn(N);
Write('Количество столбцов - '); ReadLn(M);
For i := 1 to N do
For j := 1 to M do
begin Write('A[' , i , ', ' , j , '] = ? ');
Read(A[i, j])
end; WriteLn;

WriteLn('Номера столбцов, которые нужно поменять:');
Write('P = '); ReadLn(P); Write('Q = '); ReadLn(Q); WriteLn;

ClrScr; WriteLn('Исходная матрица : ' ) ;
For i := 1 to N do
begin
For j := 1 to M do Write(A[i, j] : 5 : 1);
WriteLn
end; WriteLn
End; { of InputOutput }
{--------------------------------------------------------}
Procedure Change(P, Q: Integer); {описаниепроцедурызаменыстолбцов }
Begin
For j := 1 to N do
begin Tmp:=A[j, P]; A[j, P]:=A[j, Q]; A[j, Q]:=Tmp end;
End; { of Change }
{--------------------------------------------------------}
ProcedureOutRes(VarA:Mas); {описание процедуры вывода результатов }
Begin
WriteLn('Матрица-результат :');
For i := 1 to N do
begin
For j := 1 to M do Write(A[i, j] : 5 : 1) ;
WriteLn
end; ReadLn
End; { of OutRes }
{--------------------------------------------------------}
BEGIN
InputOutput(A); {вызов процедуры ввода-вывода исходных данных}
Change(P, Q); {вызов процедуры замены столбцов }
OutRes(A) {вызов процедуры вывода результатов }
END.

[S.W.A.T.]

Если надо то стучись 378710771.

[Jeni]

В принципе, она и на Delphi пойдет. Надо только убрать строчки uses Crt; ClrScr; и переменные циклов сделать локальными, а не глобальными.
Но это только, если достаточно консольного приложения. А если нужна программа с графическим интерфейсом, то придется переделывать.

[Сильванович Михаил]

По поводу сделать глобальные локальными: зачем? (прога и без этого
будет безотказно работать)

[Jeni]

Работать будет, просто Delphi не любит когда в циклах используются глобальные переменные и выдает предупреждения. И если человек столкнется с этим впервые, то может "испугаться".

[VDK23RUS]

Подскажите ещё, в кнопке что прописать, в Label что прописать, и в StringGrid1 или в другой форме.
Понимаете, просто у мя неи Delpfi!!!

[Jeni]

Т.е. нужен все-таки графический интерфейс? Это уже серьезная переделка программы.

[S.W.A.T.]

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

Подскажите ещё, в кнопке что прописать, в Label что прописать, и в StringGrid1 или в другой форме.
Понимаете, просто у мя неи Delpfi!!!

Интересно, как ты будешь переделывать прогу не имея дельфей??? ТАк просто для отчета так сказать?

[VDK23RUS]

С программой справился,всем спасибо!
Тему можно закрывать